home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1993-02-12 | 21.8 KB | [TEXT/KAHL] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 10%
| dexvert
| Jesper Olsen Module (music/jesperOlsen)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, Fri Feb 12 17:30:20 1993, modified Fri Feb 12 17:30:20 1993, creator Think C, type ASCII, 21437 bytes "main.c" , at 0x543d 610 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 49%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 33%
| TrID
| TTComp archive compressed (bin-4K)
| default (weak)
| |
| 16%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [KAHL] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 6d 61 69 6e 2e 63 | 00 00 00 00 00 00 00 00 |..main.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 53 bd 00 | 00 02 62 a7 a1 d5 7c a7 |.....S..|..b...|.|
|00000060| a1 d5 7c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..|.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ac b4 00 00 |........|........|
|00000080| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 69 6f 2e |#include| <stdio.|
|00000090| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 73 74 72 |h>.#incl|ude <str|
|000000a0| 69 6e 67 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |ing.h>.#|include |
|000000b0| 22 54 45 33 32 4b 2e 68 | 22 0d 0d 0d 23 64 65 66 |"TE32K.h|"...#def|
|000000c0| 69 6e 65 20 45 51 53 54 | 52 09 30 0d 0d 0d 23 64 |ine EQST|R.0...#d|
|000000d0| 65 66 69 6e 65 09 79 65 | 73 4e 6f 43 61 6e 63 65 |efine.ye|sNoCance|
|000000e0| 6c 44 4c 4f 47 09 31 33 | 32 0d 23 64 65 66 69 6e |lDLOG.13|2.#defin|
|000000f0| 65 09 65 72 72 6f 72 44 | 4c 4f 47 09 09 32 35 36 |e.errorD|LOG..256|
|00000100| 0d 0d 23 64 65 66 69 6e | 65 09 6e 75 6d 4d 65 6e |..#defin|e.numMen|
|00000110| 75 73 09 34 0d 0d 23 64 | 65 66 69 6e 65 09 61 70 |us.4..#d|efine.ap|
|00000120| 70 6c 65 4d 65 6e 75 09 | 30 0d 23 64 65 66 69 6e |pleMenu.|0.#defin|
|00000130| 65 09 66 69 6c 65 4d 65 | 6e 75 09 31 0d 23 64 65 |e.fileMe|nu.1.#de|
|00000140| 66 69 6e 65 09 65 64 69 | 74 4d 65 6e 75 09 32 0d |fine.edi|tMenu.2.|
|00000150| 23 64 65 66 69 6e 65 20 | 66 6f 6e 74 4d 65 6e 75 |#define |fontMenu|
|00000160| 09 33 0d 0d 23 64 65 66 | 69 6e 65 09 61 70 70 6c |.3..#def|ine.appl|
|00000170| 65 49 44 09 09 31 32 38 | 0d 23 64 65 66 69 6e 65 |eID..128|.#define|
|00000180| 09 66 69 6c 65 49 44 09 | 09 31 32 39 0d 23 64 65 |.fileID.|.129.#de|
|00000190| 66 69 6e 65 09 65 64 69 | 74 49 44 09 09 31 33 30 |fine.edi|tID..130|
|000001a0| 0d 23 64 65 66 69 6e 65 | 20 66 6f 6e 74 49 44 09 |.#define| fontID.|
|000001b0| 09 31 33 31 0d 0d 23 64 | 65 66 69 6e 65 09 6e 65 |.131..#d|efine.ne|
|000001c0| 77 43 6f 6d 6d 61 6e 64 | 09 09 31 0d 23 64 65 66 |wCommand|..1.#def|
|000001d0| 69 6e 65 09 6f 70 65 6e | 43 6f 6d 6d 61 6e 64 09 |ine.open|Command.|
|000001e0| 09 32 0d 23 64 65 66 69 | 6e 65 20 69 6e 73 65 72 |.2.#defi|ne inser|
|000001f0| 74 43 6f 6d 6d 61 6e 64 | 09 33 0d 23 64 65 66 69 |tCommand|.3.#defi|
|00000200| 6e 65 09 63 6c 6f 73 65 | 43 6f 6d 6d 61 6e 64 09 |ne.close|Command.|
|00000210| 34 0d 23 64 65 66 69 6e | 65 09 73 61 76 65 43 6f |4.#defin|e.saveCo|
|00000220| 6d 6d 61 6e 64 09 09 35 | 0d 23 64 65 66 69 6e 65 |mmand..5|.#define|
|00000230| 09 73 61 76 65 41 73 43 | 6f 6d 6d 61 6e 64 09 36 |.saveAsC|ommand.6|
|00000240| 0d 23 64 65 66 69 6e 65 | 09 71 75 69 74 43 6f 6d |.#define|.quitCom|
|00000250| 6d 61 6e 64 09 09 38 0d | 0d 23 64 65 66 69 6e 65 |mand..8.|.#define|
|00000260| 09 75 6e 64 6f 43 6f 6d | 6d 61 6e 64 09 09 31 0d |.undoCom|mand..1.|
|00000270| 23 64 65 66 69 6e 65 09 | 63 75 74 43 6f 6d 6d 61 |#define.|cutComma|
|00000280| 6e 64 09 09 33 0d 23 64 | 65 66 69 6e 65 09 63 6f |nd..3.#d|efine.co|
|00000290| 70 79 43 6f 6d 6d 61 6e | 64 09 09 34 0d 23 64 65 |pyComman|d..4.#de|
|000002a0| 66 69 6e 65 20 70 61 73 | 74 65 43 6f 6d 6d 61 6e |fine pas|teComman|
|000002b0| 64 09 35 0d 23 64 65 66 | 69 6e 65 09 63 6c 65 61 |d.5.#def|ine.clea|
|000002c0| 72 43 6f 6d 6d 61 6e 64 | 09 36 0d 23 64 65 66 69 |rCommand|.6.#defi|
|000002d0| 6e 65 09 73 65 6c 65 63 | 74 43 6f 6d 6d 61 6e 64 |ne.selec|tCommand|
|000002e0| 09 37 0d 23 64 65 66 69 | 6e 65 09 77 72 61 70 43 |.7.#defi|ne.wrapC|
|000002f0| 6f 6d 6d 61 6e 64 09 09 | 39 0d 0d 0d 0d 63 68 61 |ommand..|9....cha|
|00000300| 72 09 09 09 61 6c 69 76 | 65 3b 0d 4d 65 6e 75 48 |r...aliv|e;.MenuH|
|00000310| 61 6e 64 6c 65 09 09 6d | 79 4d 65 6e 75 73 5b 6e |andle..m|yMenus[n|
|00000320| 75 6d 4d 65 6e 75 73 5d | 3b 0d 63 68 61 72 09 09 |umMenus]|;.char..|
|00000330| 09 74 65 6d 70 53 74 72 | 69 6e 67 5b 32 35 36 5d |.tempStr|ing[256]|
|00000340| 3b 0d 57 69 6e 64 6f 77 | 50 74 72 09 09 74 68 65 |;.Window|Ptr..the|
|00000350| 57 50 74 72 20 3d 20 30 | 4c 3b 0d 54 45 33 32 4b |WPtr = 0|L;.TE32K|
|00000360| 48 61 6e 64 6c 65 09 09 | 74 68 65 54 45 48 33 32 |Handle..|theTEH32|
|00000370| 4b 20 3d 20 30 4c 3b 0d | 43 6f 6e 74 72 6f 6c 48 |K = 0L;.|ControlH|
|00000380| 61 6e 64 6c 65 09 74 68 | 65 56 53 63 72 6f 6c 6c |andle.th|eVScroll|
|00000390| 20 3d 20 30 4c 2c 20 74 | 68 65 48 53 63 72 6f 6c | = 0L, t|heHScrol|
|000003a0| 6c 20 3d 20 30 4c 3b 0d | 43 75 72 73 6f 72 09 09 |l = 0L;.|Cursor..|
|000003b0| 09 65 64 69 74 43 75 72 | 73 6f 72 2c 77 61 69 74 |.editCur|sor,wait|
|000003c0| 43 75 72 73 6f 72 3b 0d | 53 46 52 65 70 6c 79 09 |Cursor;.|SFReply.|
|000003d0| 09 09 6d 79 53 46 52 65 | 70 6c 79 3b 0d 63 68 61 |..mySFRe|ply;.cha|
|000003e0| 72 09 09 09 63 68 61 6e | 67 65 64 3b 0d 69 6e 74 |r...chan|ged;.int|
|000003f0| 09 09 09 09 64 65 66 61 | 75 6c 74 46 6f 6e 74 2c |....defa|ultFont,|
|00000400| 64 65 66 61 75 6c 74 46 | 6f 6e 74 53 69 7a 65 3b |defaultF|ontSize;|
|00000410| 0d 63 68 61 72 09 09 09 | 2a 74 68 65 54 65 73 74 |.char...|*theTest|
|00000420| 53 74 72 69 6e 67 20 3d | 20 22 54 68 69 73 20 69 |String =| "This i|
|00000430| 73 20 74 65 72 6d 69 6e | 61 74 65 64 20 62 79 20 |s termin|ated by |
|00000440| 61 20 5c 5c 6e 20 63 68 | 61 72 61 63 74 65 72 5c |a \\n ch|aracter\|
|00000450| 6e 22 3b 0d 0d 52 65 73 | 74 61 72 74 50 72 6f 63 |n";..Res|tartProc|
|00000460| 28 29 0d 7b 0d 09 45 78 | 69 74 54 6f 53 68 65 6c |().{..Ex|itToShel|
|00000470| 6c 28 29 3b 0d 7d 0d 0d | 0d 0d 6d 61 69 6e 28 29 |l();.}..|..main()|
|00000480| 0d 7b 0d 45 76 65 6e 74 | 52 65 63 6f 72 64 09 09 |.{.Event|Record..|
|00000490| 74 68 65 45 76 65 6e 74 | 3b 0d 57 69 6e 64 6f 77 |theEvent|;.Window|
|000004a0| 50 74 72 09 09 77 68 69 | 63 68 57 69 6e 64 6f 77 |Ptr..whi|chWindow|
|000004b0| 3b 0d 75 6e 73 69 67 6e | 65 64 20 63 68 61 72 09 |;.unsign|ed char.|
|000004c0| 74 68 65 43 68 61 72 3b | 0d 0d 09 49 6e 69 74 47 |theChar;|...InitG|
|000004d0| 72 61 66 28 26 74 68 65 | 50 6f 72 74 29 3b 0d 09 |raf(&the|Port);..|
|000004e0| 49 6e 69 74 46 6f 6e 74 | 73 28 29 3b 0d 09 46 6c |InitFont|s();..Fl|
|000004f0| 75 73 68 45 76 65 6e 74 | 73 28 65 76 65 72 79 45 |ushEvent|s(everyE|
|00000500| 76 65 6e 74 2c 30 29 3b | 0d 09 49 6e 69 74 57 69 |vent,0);|..InitWi|
|00000510| 6e 64 6f 77 73 28 29 3b | 0d 09 49 6e 69 74 4d 65 |ndows();|..InitMe|
|00000520| 6e 75 73 28 29 3b 0d 09 | 54 45 49 6e 69 74 28 29 |nus();..|TEInit()|
|00000530| 3b 0d 09 49 6e 69 74 44 | 69 61 6c 6f 67 73 28 52 |;..InitD|ialogs(R|
|00000540| 65 73 74 61 72 74 50 72 | 6f 63 29 3b 0d 09 49 6e |estartPr|oc);..In|
|00000550| 69 74 43 75 72 73 6f 72 | 28 29 3b 0d 09 0d 09 54 |itCursor|();....T|
|00000560| 45 33 32 4b 49 6e 69 74 | 28 29 3b 0d 09 0d 09 53 |E32KInit|();....S|
|00000570| 65 74 55 70 43 75 72 73 | 6f 72 73 28 29 3b 0d 09 |etUpCurs|ors();..|
|00000580| 0d 09 53 65 74 55 70 4d | 65 6e 75 73 28 29 3b 0d |..SetUpM|enus();.|
|00000590| 09 0d 09 64 65 66 61 75 | 6c 74 46 6f 6e 74 20 3d |...defau|ltFont =|
|000005a0| 20 6d 6f 6e 61 63 6f 3b | 0d 09 64 65 66 61 75 6c | monaco;|..defaul|
|000005b0| 74 46 6f 6e 74 53 69 7a | 65 20 3d 20 39 3b 0d 09 |tFontSiz|e = 9;..|
|000005c0| 4d 61 69 6e 74 61 69 6e | 46 6f 6e 74 4d 65 6e 75 |Maintain|FontMenu|
|000005d0| 28 29 3b 0d 09 0d 09 46 | 6c 75 73 68 45 76 65 6e |();....F|lushEven|
|000005e0| 74 73 28 65 76 65 72 79 | 45 76 65 6e 74 2c 30 29 |ts(every|Event,0)|
|000005f0| 3b 0d 09 0d 09 61 6c 69 | 76 65 20 3d 20 54 52 55 |;....ali|ve = TRU|
|00000600| 45 3b 0d 09 0d 09 77 68 | 69 6c 65 20 28 61 6c 69 |E;....wh|ile (ali|
|00000610| 76 65 29 0d 09 7b 0d 09 | 09 53 79 73 74 65 6d 54 |ve)..{..|.SystemT|
|00000620| 61 73 6b 28 29 3b 0d 09 | 09 4d 61 69 6e 74 61 69 |ask();..|.Maintai|
|00000630| 6e 43 75 72 73 6f 72 28 | 29 3b 0d 09 09 4d 61 69 |nCursor(|);...Mai|
|00000640| 6e 74 61 69 6e 4d 65 6e | 75 73 28 29 3b 0d 09 09 |ntainMen|us();...|
|00000650| 44 6f 49 64 6c 65 28 29 | 3b 0d 09 09 0d 09 09 69 |DoIdle()|;......i|
|00000660| 66 20 28 47 65 74 4e 65 | 78 74 45 76 65 6e 74 28 |f (GetNe|xtEvent(|
|00000670| 65 76 65 72 79 45 76 65 | 6e 74 2c 26 74 68 65 45 |everyEve|nt,&theE|
|00000680| 76 65 6e 74 29 29 0d 09 | 09 7b 0d 09 09 09 73 77 |vent))..|.{....sw|
|00000690| 69 74 63 68 20 28 74 68 | 65 45 76 65 6e 74 2e 77 |itch (th|eEvent.w|
|000006a0| 68 61 74 29 0d 09 09 09 | 7b 0d 09 09 09 09 63 61 |hat)....|{.....ca|
|000006b0| 73 65 20 6d 6f 75 73 65 | 44 6f 77 6e 3a 0d 09 09 |se mouse|Down:...|
|000006c0| 09 09 09 44 6f 4d 6f 75 | 73 65 44 6f 77 6e 28 26 |...DoMou|seDown(&|
|000006d0| 74 68 65 45 76 65 6e 74 | 29 3b 0d 09 09 09 09 09 |theEvent|);......|
|000006e0| 62 72 65 61 6b 3b 0d 09 | 09 09 09 0d 09 09 09 09 |break;..|........|
|000006f0| 63 61 73 65 20 6b 65 79 | 44 6f 77 6e 3a 0d 09 09 |case key|Down:...|
|00000700| 09 09 63 61 73 65 20 61 | 75 74 6f 4b 65 79 3a 20 |..case a|utoKey: |
|00000710| 0d 09 09 09 09 09 0d 09 | 09 09 09 09 74 68 65 43 |........|....theC|
|00000720| 68 61 72 20 3d 20 74 68 | 65 45 76 65 6e 74 2e 6d |har = th|eEvent.m|
|00000730| 65 73 73 61 67 65 20 26 | 20 63 68 61 72 43 6f 64 |essage &| charCod|
|00000740| 65 4d 61 73 6b 3b 0d 09 | 09 09 09 09 0d 09 09 09 |eMask;..|........|
|00000750| 09 09 69 66 20 28 74 68 | 65 45 76 65 6e 74 2e 6d |..if (th|eEvent.m|
|00000760| 6f 64 69 66 69 65 72 73 | 20 26 20 63 6d 64 4b 65 |odifiers| & cmdKe|
|00000770| 79 29 0d 09 09 09 09 09 | 09 44 6f 43 6f 6d 6d 61 |y)......|.DoComma|
|00000780| 6e 64 28 4d 65 6e 75 4b | 65 79 28 28 75 6e 73 69 |nd(MenuK|ey((unsi|
|00000790| 67 6e 65 64 20 63 68 61 | 72 29 20 74 68 65 43 68 |gned cha|r) theCh|
|000007a0| 61 72 29 29 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |ar));...|........|
|000007b0| 09 65 6c 73 65 0d 09 09 | 09 09 09 09 44 6f 4b 65 |.else...|....DoKe|
|000007c0| 79 28 28 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 |y((unsig|ned char|
|000007d0| 29 20 74 68 65 43 68 61 | 72 29 3b 0d 09 09 09 09 |) theCha|r);.....|
|000007e0| 09 0d 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |.......b|reak;...|
|000007f0| 09 09 09 0d 09 09 09 09 | 63 61 73 65 20 61 63 74 |........|case act|
|00000800| 69 76 61 74 65 45 76 74 | 3a 0d 09 09 09 09 09 69 |ivateEvt|:......i|
|00000810| 66 20 28 49 73 4f 75 72 | 57 69 6e 64 6f 77 28 28 |f (IsOur|Window((|
|00000820| 57 69 6e 64 6f 77 50 74 | 72 29 20 74 68 65 45 76 |WindowPt|r) theEv|
|00000830| 65 6e 74 2e 6d 65 73 73 | 61 67 65 29 29 20 0d 09 |ent.mess|age)) ..|
|00000840| 09 09 09 09 09 44 6f 41 | 63 74 69 76 61 74 65 44 |.....DoA|ctivateD|
|00000850| 65 61 63 74 69 76 61 74 | 65 28 28 57 69 6e 64 6f |eactivat|e((Windo|
|00000860| 77 50 74 72 29 20 74 68 | 65 45 76 65 6e 74 2e 6d |wPtr) th|eEvent.m|
|00000870| 65 73 73 61 67 65 2c 28 | 63 68 61 72 29 20 28 74 |essage,(|char) (t|
|00000880| 68 65 45 76 65 6e 74 2e | 6d 6f 64 69 66 69 65 72 |heEvent.|modifier|
|00000890| 73 20 26 20 61 63 74 69 | 76 65 46 6c 61 67 29 29 |s & acti|veFlag))|
|000008a0| 3b 0d 09 09 09 09 09 0d | 09 09 09 09 09 62 72 65 |;.......|.....bre|
|000008b0| 61 6b 3b 0d 09 09 09 09 | 09 0d 09 09 09 09 63 61 |ak;.....|......ca|
|000008c0| 73 65 20 75 70 64 61 74 | 65 45 76 74 3a 20 0d 09 |se updat|eEvt: ..|
|000008d0| 09 09 09 09 69 66 20 28 | 49 73 4f 75 72 57 69 6e |....if (|IsOurWin|
|000008e0| 64 6f 77 28 28 57 69 6e | 64 6f 77 50 74 72 29 20 |dow((Win|dowPtr) |
|000008f0| 74 68 65 45 76 65 6e 74 | 2e 6d 65 73 73 61 67 65 |theEvent|.message|
|00000900| 29 29 20 0d 09 09 09 09 | 09 09 55 70 64 61 74 65 |)) .....|..Update|
|00000910| 57 69 6e 64 6f 77 28 28 | 57 69 6e 64 6f 77 50 74 |Window((|WindowPt|
|00000920| 72 29 20 74 68 65 45 76 | 65 6e 74 2e 6d 65 73 73 |r) theEv|ent.mess|
|00000930| 61 67 65 29 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |age);...|........|
|00000940| 09 62 72 65 61 6b 3b 0d | 09 09 09 7d 0d 09 09 7d |.break;.|...}...}|
|00000950| 0d 09 7d 0d 7d 0d 0d 0d | 0d 0d 0d 70 61 73 63 61 |..}.}...|...pasca|
|00000960| 6c 20 76 6f 69 64 20 48 | 69 6c 69 74 65 44 65 66 |l void H|iliteDef|
|00000970| 61 75 6c 74 42 75 74 74 | 6f 6e 28 74 68 65 44 50 |aultButt|on(theDP|
|00000980| 74 72 2c 20 77 68 69 63 | 68 49 74 65 6d 29 0d 44 |tr, whic|hItem).D|
|00000990| 69 61 6c 6f 67 50 74 72 | 20 74 68 65 44 50 74 72 |ialogPtr| theDPtr|
|000009a0| 3b 20 69 6e 74 20 77 68 | 69 63 68 49 74 65 6d 3b |; int wh|ichItem;|
|000009b0| 0d 7b 0d 69 6e 74 09 09 | 09 74 79 70 65 3b 0d 48 |.{.int..|.type;.H|
|000009c0| 61 6e 64 6c 65 09 09 74 | 68 65 49 74 65 6d 3b 0d |andle..t|heItem;.|
|000009d0| 52 65 63 74 09 09 74 68 | 65 52 65 63 74 3b 0d 0d |Rect..th|eRect;..|
|000009e0| 09 47 65 74 44 49 74 65 | 6d 28 74 68 65 44 50 74 |.GetDIte|m(theDPt|
|000009f0| 72 2c 20 28 28 44 69 61 | 6c 6f 67 50 65 65 6b 29 |r, ((Dia|logPeek)|
|00000a00| 20 74 68 65 44 50 74 72 | 29 2d 3e 61 44 65 66 49 | theDPtr|)->aDefI|
|00000a10| 74 65 6d 2c 20 26 74 79 | 70 65 2c 20 26 74 68 65 |tem, &ty|pe, &the|
|00000a20| 49 74 65 6d 2c 20 26 74 | 68 65 52 65 63 74 29 3b |Item, &t|heRect);|
|00000a30| 0d 09 50 65 6e 4e 6f 72 | 6d 61 6c 28 29 3b 0d 09 |..PenNor|mal();..|
|00000a40| 50 65 6e 53 69 7a 65 28 | 33 2c 33 29 3b 0d 09 49 |PenSize(|3,3);..I|
|00000a50| 6e 73 65 74 52 65 63 74 | 28 26 74 68 65 52 65 63 |nsetRect|(&theRec|
|00000a60| 74 2c 2d 34 2c 2d 34 29 | 3b 0d 09 46 72 61 6d 65 |t,-4,-4)|;..Frame|
|00000a70| 52 6f 75 6e 64 52 65 63 | 74 28 26 74 68 65 52 65 |RoundRec|t(&theRe|
|00000a80| 63 74 2c 31 36 2c 31 36 | 29 3b 0d 09 50 65 6e 53 |ct,16,16|);..PenS|
|00000a90| 69 7a 65 28 31 2c 31 29 | 3b 0d 7d 0d 0d 0d 0d 45 |ize(1,1)|;.}....E|
|00000aa0| 72 72 6f 72 41 6c 65 72 | 74 28 70 30 29 0d 63 68 |rrorAler|t(p0).ch|
|00000ab0| 61 72 09 2a 70 30 3b 0d | 7b 0d 47 72 61 66 50 74 |ar.*p0;.|{.GrafPt|
|00000ac0| 72 09 09 09 6f 6c 64 50 | 6f 72 74 3b 0d 44 69 61 |r...oldP|ort;.Dia|
|00000ad0| 6c 6f 67 50 74 72 09 09 | 74 68 65 44 50 74 72 2c |logPtr..|theDPtr,|
|00000ae0| 74 65 6d 70 44 50 74 72 | 3b 0d 69 6e 74 09 09 09 |tempDPtr|;.int...|
|00000af0| 09 69 74 65 6d 48 69 74 | 2c 20 74 79 70 65 3b 0d |.itemHit|, type;.|
|00000b00| 48 61 6e 64 6c 65 09 09 | 09 74 68 65 49 74 65 6d |Handle..|.theItem|
|00000b10| 3b 0d 52 65 63 74 09 09 | 09 74 68 65 52 65 63 74 |;.Rect..|.theRect|
|00000b20| 3b 0d 45 76 65 6e 74 52 | 65 63 6f 72 64 09 09 74 |;.EventR|ecord..t|
|00000b30| 68 65 45 76 65 6e 74 3b | 0d 0d 09 47 65 74 50 6f |heEvent;|...GetPo|
|00000b40| 72 74 28 26 6f 6c 64 50 | 6f 72 74 29 3b 0d 09 0d |rt(&oldP|ort);...|
|00000b50| 09 49 6e 69 74 43 75 72 | 73 6f 72 28 29 3b 0d 09 |.InitCur|sor();..|
|00000b60| 0d 09 69 66 20 28 21 28 | 74 68 65 44 50 74 72 20 |..if (!(|theDPtr |
|00000b70| 3d 20 47 65 74 4e 65 77 | 44 69 61 6c 6f 67 28 65 |= GetNew|Dialog(e|
|00000b80| 72 72 6f 72 44 4c 4f 47 | 2c 20 4e 55 4c 4c 2c 28 |rrorDLOG|, NULL,(|
|00000b90| 57 69 6e 64 6f 77 50 74 | 72 29 20 2d 31 4c 29 29 |WindowPt|r) -1L))|
|00000ba0| 29 0d 09 7b 0d 09 09 53 | 79 73 42 65 65 70 28 31 |)..{...S|ysBeep(1|
|00000bb0| 29 3b 0d 09 09 45 78 69 | 74 54 6f 53 68 65 6c 6c |);...Exi|tToShell|
|00000bc0| 28 29 3b 0d 09 7d 0d 09 | 0d 09 53 65 74 50 6f 72 |();..}..|..SetPor|
|00000bd0| 74 28 74 68 65 44 50 74 | 72 29 3b 0d 09 0d 09 43 |t(theDPt|r);....C|
|00000be0| 65 6e 74 65 72 57 69 6e | 64 6f 77 28 74 68 65 44 |enterWin|dow(theD|
|00000bf0| 50 74 72 29 3b 0d 09 53 | 68 6f 77 57 69 6e 64 6f |Ptr);..S|howWindo|
|00000c00| 77 28 74 68 65 44 50 74 | 72 29 3b 0d 09 0d 09 28 |w(theDPt|r);....(|
|00000c10| 28 44 69 61 6c 6f 67 50 | 65 65 6b 29 20 74 68 65 |(DialogP|eek) the|
|00000c20| 44 50 74 72 29 2d 3e 61 | 44 65 66 49 74 65 6d 20 |DPtr)->a|DefItem |
|00000c30| 3d 20 31 3b 0d 09 0d 09 | 47 65 74 44 49 74 65 6d |= 1;....|GetDItem|
|00000c40| 28 74 68 65 44 50 74 72 | 2c 20 33 2c 20 26 74 79 |(theDPtr|, 3, &ty|
|00000c50| 70 65 2c 20 26 74 68 65 | 49 74 65 6d 2c 20 26 74 |pe, &the|Item, &t|
|00000c60| 68 65 52 65 63 74 29 3b | 0d 09 53 65 74 44 49 74 |heRect);|..SetDIt|
|00000c70| 65 6d 28 74 68 65 44 50 | 74 72 2c 20 33 2c 20 74 |em(theDP|tr, 3, t|
|00000c80| 79 70 65 2c 20 48 69 6c | 69 74 65 44 65 66 61 75 |ype, Hil|iteDefau|
|00000c90| 6c 74 42 75 74 74 6f 6e | 2c 20 26 74 68 65 52 65 |ltButton|, &theRe|
|00000ca0| 63 74 29 3b 0d 09 0d 09 | 47 65 74 44 49 74 65 6d |ct);....|GetDItem|
|00000cb0| 28 74 68 65 44 50 74 72 | 2c 20 32 2c 20 26 74 79 |(theDPtr|, 2, &ty|
|00000cc0| 70 65 2c 20 26 74 68 65 | 49 74 65 6d 2c 20 26 74 |pe, &the|Item, &t|
|00000cd0| 68 65 52 65 63 74 29 3b | 0d 09 43 74 6f 50 73 74 |heRect);|..CtoPst|
|00000ce0| 72 28 70 30 29 3b 0d 09 | 53 65 74 49 54 65 78 74 |r(p0);..|SetIText|
|00000cf0| 28 74 68 65 49 74 65 6d | 2c 20 70 30 29 3b 0d 09 |(theItem|, p0);..|
|00000d00| 50 74 6f 43 73 74 72 28 | 70 30 29 3b 0d 09 0d 09 |PtoCstr(|p0);....|
|00000d10| 77 68 69 6c 65 20 28 21 | 47 65 74 4e 65 78 74 45 |while (!|GetNextE|
|00000d20| 76 65 6e 74 28 75 70 64 | 61 74 65 4d 61 73 6b 2c |vent(upd|ateMask,|
|00000d30| 26 74 68 65 45 76 65 6e | 74 29 29 3b 0d 09 0d 09 |&theEven|t));....|
|00000d40| 69 66 20 28 74 68 65 45 | 76 65 6e 74 2e 6d 65 73 |if (theE|vent.mes|
|00000d50| 73 61 67 65 20 3d 3d 20 | 28 6c 6f 6e 67 29 20 74 |sage == |(long) t|
|00000d60| 68 65 44 50 74 72 29 0d | 09 09 44 69 61 6c 6f 67 |heDPtr).|..Dialog|
|00000d70| 53 65 6c 65 63 74 28 26 | 74 68 65 45 76 65 6e 74 |Select(&|theEvent|
|00000d80| 2c 26 74 65 6d 70 44 50 | 74 72 2c 26 69 74 65 6d |,&tempDP|tr,&item|
|00000d90| 48 69 74 29 3b 0d 09 0d | 09 53 79 73 42 65 65 70 |Hit);...|.SysBeep|
|00000da0| 28 31 29 3b 0d 09 0d 09 | 64 6f 20 0d 09 7b 0d 09 |(1);....|do ..{..|
|00000db0| 09 69 74 65 6d 48 69 74 | 20 3d 20 30 3b 0d 09 09 |.itemHit| = 0;...|
|00000dc0| 0d 09 09 77 68 69 6c 65 | 20 28 21 47 65 74 4e 65 |...while| (!GetNe|
|00000dd0| 78 74 45 76 65 6e 74 28 | 65 76 65 72 79 45 76 65 |xtEvent(|everyEve|
|00000de0| 6e 74 2c 26 74 68 65 45 | 76 65 6e 74 29 29 3b 0d |nt,&theE|vent));.|
|00000df0| 09 09 0d 09 09 69 66 20 | 28 74 68 65 45 76 65 6e |.....if |(theEven|
|00000e00| 74 2e 77 68 61 74 3d 3d | 6b 65 79 44 6f 77 6e 20 |t.what==|keyDown |
|00000e10| 7c 7c 20 74 68 65 45 76 | 65 6e 74 2e 77 68 61 74 ||| theEv|ent.what|
|00000e20| 3d 3d 61 75 74 6f 4b 65 | 79 29 0d 09 09 7b 0d 09 |==autoKe|y)...{..|
|00000e30| 09 09 69 66 20 28 28 74 | 68 65 45 76 65 6e 74 2e |..if ((t|heEvent.|
|00000e40| 6d 65 73 73 61 67 65 20 | 26 20 63 68 61 72 43 6f |message |& charCo|
|00000e50| 64 65 4d 61 73 6b 29 3d | 3d 27 5c 72 27 20 7c 7c |deMask)=|='\r' |||
|00000e60| 20 28 74 68 65 45 76 65 | 6e 74 2e 6d 65 73 73 61 | (theEve|nt.messa|
|00000e70| 67 65 20 26 20 63 68 61 | 72 43 6f 64 65 4d 61 73 |ge & cha|rCodeMas|
|00000e80| 6b 29 3d 3d 30 78 30 33 | 29 0d 09 09 09 09 69 74 |k)==0x03|).....it|
|00000e90| 65 6d 48 69 74 20 3d 20 | 28 28 44 69 61 6c 6f 67 |emHit = |((Dialog|
|00000ea0| 50 65 65 6b 29 20 74 68 | 65 44 50 74 72 29 2d 3e |Peek) th|eDPtr)->|
|00000eb0| 61 44 65 66 49 74 65 6d | 3b 0d 09 09 09 65 6c 73 |aDefItem|;....els|
|00000ec0| 65 0d 09 09 09 09 53 79 | 73 42 65 65 70 28 31 29 |e.....Sy|sBeep(1)|
|00000ed0| 3b 0d 09 09 7d 0d 09 09 | 0d 09 09 65 6c 73 65 0d |;...}...|...else.|
|00000ee0| 09 09 7b 0d 09 09 09 74 | 65 6d 70 44 50 74 72 20 |..{....t|empDPtr |
|00000ef0| 3d 20 28 44 69 61 6c 6f | 67 50 74 72 29 20 30 4c |= (Dialo|gPtr) 0L|
|00000f00| 3b 0d 09 09 09 0d 09 09 | 09 69 66 20 28 21 49 73 |;.......|.if (!Is|
|00000f10| 44 69 61 6c 6f 67 45 76 | 65 6e 74 28 26 74 68 65 |DialogEv|ent(&the|
|00000f20| 45 76 65 6e 74 29 20 7c | 7c 20 21 44 69 61 6c 6f |Event) ||| !Dialo|
|00000f30| 67 53 65 6c 65 63 74 28 | 26 74 68 65 45 76 65 6e |gSelect(|&theEven|
|00000f40| 74 2c 26 74 65 6d 70 44 | 50 74 72 2c 26 69 74 65 |t,&tempD|Ptr,&ite|
|00000f50| 6d 48 69 74 29 20 7c 7c | 20 74 65 6d 70 44 50 74 |mHit) ||| tempDPt|
|00000f60| 72 21 3d 74 68 65 44 50 | 74 72 29 0d 09 09 09 09 |r!=theDP|tr).....|
|00000f70| 69 74 65 6d 48 69 74 20 | 3d 20 30 3b 0d 09 09 7d |itemHit |= 0;...}|
|00000f80| 0d 09 09 0d 09 7d 20 77 | 68 69 6c 65 20 28 69 74 |.....} w|hile (it|
|00000f90| 65 6d 48 69 74 21 3d 31 | 29 3b 0d 09 0d 09 44 69 |emHit!=1|);....Di|
|00000fa0| 73 70 6f 73 44 69 61 6c | 6f 67 28 74 68 65 44 50 |sposDial|og(theDP|
|00000fb0| 74 72 29 3b 0d 09 53 65 | 74 50 6f 72 74 28 6f 6c |tr);..Se|tPort(ol|
|00000fc0| 64 50 6f 72 74 29 3b 0d | 7d 0d 0d 0d 0d 0d 0d 53 |dPort);.|}......S|
|00000fd0| 65 74 55 70 4d 65 6e 75 | 73 28 29 0d 7b 0d 69 6e |etUpMenu|s().{.in|
|00000fe0| 74 09 09 09 69 2c 6e 75 | 6d 44 41 73 3b 0d 0d 09 |t...i,nu|mDAs;...|
|00000ff0| 6d 79 4d 65 6e 75 73 5b | 61 70 70 6c 65 4d 65 6e |myMenus[|appleMen|
|00001000| 75 5d 20 3d 20 47 65 74 | 4d 65 6e 75 28 61 70 70 |u] = Get|Menu(app|
|00001010| 6c 65 49 44 29 3b 0d 09 | 41 64 64 52 65 73 4d 65 |leID);..|AddResMe|
|00001020| 6e 75 28 6d 79 4d 65 6e | 75 73 5b 61 70 70 6c 65 |nu(myMen|us[apple|
|00001030| 4d 65 6e 75 5d 2c 27 44 | 52 56 52 27 29 3b 0d 09 |Menu],'D|RVR');..|
|00001040| 6d 79 4d 65 6e 75 73 5b | 66 69 6c 65 4d 65 6e 75 |myMenus[|fileMenu|
|00001050| 5d 20 3d 20 47 65 74 4d | 65 6e 75 28 66 69 6c 65 |] = GetM|enu(file|
|00001060| 49 44 29 3b 0d 09 6d 79 | 4d 65 6e 75 73 5b 65 64 |ID);..my|Menus[ed|
|00001070| 69 74 4d 65 6e 75 5d 20 | 3d 20 47 65 74 4d 65 6e |itMenu] |= GetMen|
|00001080| 75 28 65 64 69 74 49 44 | 29 3b 0d 09 6d 79 4d 65 |u(editID|);..myMe|
|00001090| 6e 75 73 5b 66 6f 6e 74 | 4d 65 6e 75 5d 20 3d 20 |nus[font|Menu] = |
|000010a0| 47 65 74 4d 65 6e 75 28 | 66 6f 6e 74 49 44 29 3b |GetMenu(|fontID);|
|000010b0| 0d 09 49 6e 73 65 72 74 | 52 65 73 4d 65 6e 75 28 |..Insert|ResMenu(|
|000010c0| 6d 79 4d 65 6e 75 73 5b | 66 6f 6e 74 4d 65 6e 75 |myMenus[|fontMenu|
|000010d0| 5d 2c 27 46 4f 4e 54 27 | 2c 30 29 3b 0d 09 0d 09 |],'FONT'|,0);....|
|000010e0| 49 6e 73 65 72 74 4d 65 | 6e 75 28 6d 79 4d 65 6e |InsertMe|nu(myMen|
|000010f0| 75 73 5b 61 70 70 6c 65 | 4d 65 6e 75 5d 2c 30 29 |us[apple|Menu],0)|
|00001100| 3b 0d 09 49 6e 73 65 72 | 74 4d 65 6e 75 28 6d 79 |;..Inser|tMenu(my|
|00001110| 4d 65 6e 75 73 5b 66 69 | 6c 65 4d 65 6e 75 5d 2c |Menus[fi|leMenu],|
|00001120| 30 29 3b 0d 09 49 6e 73 | 65 72 74 4d 65 6e 75 28 |0);..Ins|ertMenu(|
|00001130| 6d 79 4d 65 6e 75 73 5b | 65 64 69 74 4d 65 6e 75 |myMenus[|editMenu|
|00001140| 5d 2c 30 29 3b 0d 09 49 | 6e 73 65 72 74 4d 65 6e |],0);..I|nsertMen|
|00001150| 75 28 6d 79 4d 65 6e 75 | 73 5b 66 6f 6e 74 4d 65 |u(myMenu|s[fontMe|
|00001160| 6e 75 5d 2c 30 29 3b 0d | 09 0d 09 44 72 61 77 4d |nu],0);.|...DrawM|
|00001170| 65 6e 75 42 61 72 28 29 | 3b 0d 09 0d 09 6e 75 6d |enuBar()|;....num|
|00001180| 44 41 73 20 3d 20 43 6f | 75 6e 74 4d 49 74 65 6d |DAs = Co|untMItem|
|00001190| 73 28 6d 79 4d 65 6e 75 | 73 5b 61 70 70 6c 65 4d |s(myMenu|s[appleM|
|000011a0| 65 6e 75 5d 29 3b 0d 09 | 0d 09 66 6f 72 20 28 69 |enu]);..|..for (i|
|000011b0| 3d 31 3b 69 3c 3d 6e 75 | 6d 44 41 73 3b 69 2b 2b |=1;i<=nu|mDAs;i++|
|000011c0| 29 0d 09 09 45 6e 61 62 | 6c 65 49 74 65 6d 28 6d |)...Enab|leItem(m|
|000011d0| 79 4d 65 6e 75 73 5b 61 | 70 70 6c 65 4d 65 6e 75 |yMenus[a|ppleMenu|
|000011e0| 5d 2c 69 29 3b 0d 7d 0d | 0d 0d 0d 4d 61 69 6e 74 |],i);.}.|...Maint|
|000011f0| 61 69 6e 4d 65 6e 75 73 | 28 29 0d 7b 0d 69 6e 74 |ainMenus|().{.int|
|00001200| 09 09 69 2c 6e 75 6d 49 | 74 65 6d 73 3b 0d 0d 09 |..i,numI|tems;...|
|00001210| 69 66 20 28 74 68 65 57 | 50 74 72 20 26 26 20 46 |if (theW|Ptr && F|
|00001220| 72 6f 6e 74 57 69 6e 64 | 6f 77 28 29 20 3d 3d 20 |rontWind|ow() == |
|00001230| 74 68 65 57 50 74 72 29 | 0d 09 7b 0d 09 09 44 69 |theWPtr)|..{...Di|
|00001240| 73 61 62 6c 65 49 74 65 | 6d 28 6d 79 4d 65 6e 75 |sableIte|m(myMenu|
|00001250| 73 5b 66 69 6c 65 4d 65 | 6e 75 5d 2c 6e 65 77 43 |s[fileMe|nu],newC|
|00001260| 6f 6d 6d 61 6e 64 29 3b | 0d 09 09 44 69 73 61 62 |ommand);|...Disab|
|00001270| 6c 65 49 74 65 6d 28 6d | 79 4d 65 6e 75 73 5b 66 |leItem(m|yMenus[f|
|00001280| 69 6c 65 4d 65 6e 75 5d | 2c 6f 70 65 6e 43 6f 6d |ileMenu]|,openCom|
|00001290| 6d 61 6e 64 29 3b 0d 09 | 09 45 6e 61 62 6c 65 49 |mand);..|.EnableI|
|000012a0| 74 65 6d 28 6d 79 4d 65 | 6e 75 73 5b 66 69 6c 65 |tem(myMe|nus[file|
|000012b0| 4d 65 6e 75 5d 2c 69 6e | 73 65 72 74 43 6f 6d 6d |Menu],in|sertComm|
|000012c0| 61 6e 64 29 3b 0d 09 09 | 45 6e 61 62 6c 65 49 74 |and);...|EnableIt|
|000012d0| 65 6d 28 6d 79 4d 65 6e | 75 73 5b 66 69 6c 65 4d |em(myMen|us[fileM|
|000012e0| 65 6e 75 5d 2c 63 6c 6f | 73 65 43 6f 6d 6d 61 6e |enu],clo|seComman|
|000012f0| 64 29 3b 0d 09 09 0d 09 | 09 69 66 20 28 63 68 61 |d);.....|.if (cha|
|00001300| 6e 67 65 64 29 0d 09 09 | 09 45 6e 61 62 6c 65 49 |nged)...|.EnableI|
|00001310| 74 65 6d 28 6d 79 4d 65 | 6e 75 73 5b 66 69 6c 65 |tem(myMe|nus[file|
|00001320| 4d 65 6e 75 5d 2c 73 61 | 76 65 43 6f 6d 6d 61 6e |Menu],sa|veComman|
|00001330| 64 29 3b 0d 09 09 65 6c | 73 65 0d 09 09 09 44 69 |d);...el|se....Di|
|00001340| 73 61 62 6c 65 49 74 65 | 6d 28 6d 79 4d 65 6e 75 |sableIte|m(myMenu|
|00001350| 73 5b 66 69 6c 65 4d 65 | 6e 75 5d 2c 73 61 76 65 |s[fileMe|nu],save|
|00001360| 43 6f 6d 6d 61 6e 64 29 | 3b 0d 09 09 0d 09 09 45 |Command)|;......E|
|00001370| 6e 61 62 6c 65 49 74 65 | 6d 28 6d 79 4d 65 6e 75 |nableIte|m(myMenu|
|00001380| 73 5b 66 69 6c 65 4d 65 | 6e 75 5d 2c 73 61 76 65 |s[fileMe|nu],save|
|00001390| 41 73 43 6f 6d 6d 61 6e | 64 29 3b 0d 09 09 0d 09 |AsComman|d);.....|
|000013a0| 09 0d 09 09 44 69 73 61 | 62 6c 65 49 74 65 6d 28 |....Disa|bleItem(|
|000013b0| 6d 79 4d 65 6e 75 73 5b | 65 64 69 74 4d 65 6e 75 |myMenus[|editMenu|
|000013c0| 5d 2c 75 6e 64 6f 43 6f | 6d 6d 61 6e 64 29 3b 0d |],undoCo|mmand);.|
|000013d0| 09 09 0d 09 09 69 66 20 | 28 74 68 65 54 45 48 33 |.....if |(theTEH3|
|000013e0| 32 4b 29 0d 09 09 7b 0d | 09 09 09 69 66 20 28 28 |2K)...{.|...if ((|
|000013f0| 2a 2a 74 68 65 54 45 48 | 33 32 4b 29 2e 73 65 6c |**theTEH|32K).sel|
|00001400| 53 74 61 72 74 20 3d 3d | 20 28 2a 2a 74 68 65 54 |Start ==| (**theT|
|00001410| 45 48 33 32 4b 29 2e 73 | 65 6c 45 6e 64 29 0d 09 |EH32K).s|elEnd)..|
|00001420| 09 09 7b 0d 09 09 09 09 | 44 69 73 61 62 6c 65 49 |..{.....|DisableI|
|00001430| 74 65 6d 28 6d 79 4d 65 | 6e 75 73 5b 65 64 69 74 |tem(myMe|nus[edit|
|00001440| 4d 65 6e 75 5d 2c 63 75 | 74 43 6f 6d 6d 61 6e 64 |Menu],cu|tCommand|
|00001450| 29 3b 0d 09 09 09 09 44 | 69 73 61 62 6c 65 49 74 |);.....D|isableIt|
|00001460| 65 6d 28 6d 79 4d 65 6e | 75 73 5b 65 64 69 74 4d |em(myMen|us[editM|
|00001470| 65 6e 75 5d 2c 63 6f 70 | 79 43 6f 6d 6d 61 6e 64 |enu],cop|yCommand|
|00001480| 29 3b 0d 09 09 09 09 44 | 69 73 61 62 6c 65 49 74 |);.....D|isableIt|
|00001490| 65 6d 28 6d 79 4d 65 6e | 75 73 5b 65 64 69 74 4d |em(myMen|us[editM|
|000014a0| 65 6e 75 5d 2c 63 6c 65 | 61 72 43 6f 6d 6d 61 6e |enu],cle|arComman|
|000014b0| 64 29 3b 0d 09 09 09 7d | 0d 09 09 09 0d 09 09 09 |d);....}|........|
|000014c0| 65 6c 73 65 0d 09 09 09 | 7b 0d 09 09 09 09 45 6e |else....|{.....En|
|000014d0| 61 62 6c 65 49 74 65 6d | 28 6d 79 4d 65 6e 75 73 |ableItem|(myMenus|
|000014e0| 5b 65 64 69 74 4d 65 6e | 75 5d 2c 63 75 74 43 6f |[editMen|u],cutCo|
|000014f0| 6d 6d 61 6e 64 29 3b 0d | 09 09 09 09 45 6e 61 62 |mmand);.|....Enab|
|00001500| 6c 65 49 74 65 6d 28 6d | 79 4d 65 6e 75 73 5b 65 |leItem(m|yMenus[e|
|00001510| 64 69 74 4d 65 6e 75 5d | 2c 63 6f 70 79 43 6f 6d |ditMenu]|,copyCom|
|00001520| 6d 61 6e 64 29 3b 0d 09 | 09 09 09 45 6e 61 62 6c |mand);..|...Enabl|
|00001530| 65 49 74 65 6d 28 6d 79 | 4d 65 6e 75 73 5b 65 64 |eItem(my|Menus[ed|
|00001540| 69 74 4d 65 6e 75 5d 2c | 63 6c 65 61 72 43 6f 6d |itMenu],|clearCom|
|00001550| 6d 61 6e 64 29 3b 0d 09 | 09 09 7d 0d 09 09 09 0d |mand);..|..}.....|
|00001560| 09 09 09 69 66 20 28 54 | 45 33 32 4b 47 65 74 53 |...if (T|E32KGetS|
|00001570| 63 72 61 70 4c 65 6e 28 | 29 20 3e 20 30 4c 29 0d |crapLen(|) > 0L).|
|00001580| 09 09 09 09 45 6e 61 62 | 6c 65 49 74 65 6d 28 6d |....Enab|leItem(m|
|00001590| 79 4d 65 6e 75 73 5b 65 | 64 69 74 4d 65 6e 75 5d |yMenus[e|ditMenu]|
|000015a0| 2c 70 61 73 74 65 43 6f | 6d 6d 61 6e 64 29 3b 0d |,pasteCo|mmand);.|
|000015b0| 09 09 09 65 6c 73 65 0d | 09 09 09 09 44 69 73 61 |...else.|....Disa|
|000015c0| 62 6c 65 49 74 65 6d 28 | 6d 79 4d 65 6e 75 73 5b |bleItem(|myMenus[|
|000015d0| 65 64 69 74 4d 65 6e 75 | 5d 2c 70 61 73 74 65 43 |editMenu|],pasteC|
|000015e0| 6f 6d 6d 61 6e 64 29 3b | 0d 09 09 09 0d 09 09 09 |ommand);|........|
|000015f0| 45 6e 61 62 6c 65 49 74 | 65 6d 28 6d 79 4d 65 6e |EnableIt|em(myMen|
|00001600| 75 73 5b 65 64 69 74 4d | 65 6e 75 5d 2c 73 65 6c |us[editM|enu],sel|
|00001610| 65 63 74 43 6f 6d 6d 61 | 6e 64 29 3b 0d 09 09 09 |ectComma|nd);....|
|00001620| 45 6e 61 62 6c 65 49 74 | 65 6d 28 6d 79 4d 65 6e |EnableIt|em(myMen|
|00001630| 75 73 5b 65 64 69 74 4d | 65 6e 75 5d 2c 77 72 61 |us[editM|enu],wra|
|00001640| 70 43 6f 6d 6d 61 6e 64 | 29 3b 0d 09 09 09 0d 09 |pCommand|);......|
|00001650| 09 09 69 66 20 28 74 68 | 65 54 45 48 33 32 4b 20 |..if (th|eTEH32K |
|00001660| 26 26 20 21 28 2a 2a 74 | 68 65 54 45 48 33 32 4b |&& !(**t|heTEH32K|
|00001670| 29 2e 63 72 4f 6e 6c 79 | 29 0d 09 09 09 7b 0d 09 |).crOnly|)....{..|
|00001680| 09 09 09 43 68 65 63 6b | 49 74 65 6d 28 6d 79 4d |...Check|Item(myM|
|00001690| 65 6e 75 73 5b 65 64 69 | 74 4d 65 6e 75 5d 2c 77 |enus[edi|tMenu],w|
|000016a0| 72 61 70 43 6f 6d 6d 61 | 6e 64 2c 54 52 55 45 29 |rapComma|nd,TRUE)|
|000016b0| 3b 0d 09 09 09 09 53 65 | 74 49 74 65 6d 4d 61 72 |;.....Se|tItemMar|
|000016c0| 6b 28 6d 79 4d 65 6e 75 | 73 5b 65 64 69 74 4d 65 |k(myMenu|s[editMe|
|000016d0| 6e 75 5d 2c 77 72 61 70 | 43 6f 6d 6d 61 6e 64 2c |nu],wrap|Command,|
|000016e0| 63 68 65 63 6b 4d 61 72 | 6b 29 3b 0d 09 09 09 7d |checkMar|k);....}|
|000016f0| 0d 09 09 09 09 0d 09 09 | 09 65 6c 73 65 0d 09 09 |........|.else...|
|00001700| 09 09 43 68 65 63 6b 49 | 74 65 6d 28 6d 79 4d 65 |..CheckI|tem(myMe|
|00001710| 6e 75 73 5b 65 64 69 74 | 4d 65 6e 75 5d 2c 77 72 |nus[edit|Menu],wr|
|00001720| 61 70 43 6f 6d 6d 61 6e | 64 2c 46 41 4c 53 45 29 |apComman|d,FALSE)|
|00001730| 3b 0d 09 09 7d 0d 09 09 | 0d 09 09 0d 09 09 6e 75 |;...}...|......nu|
|00001740| 6d 49 74 65 6d 73 20 3d | 20 43 6f 75 6e 74 4d 49 |mItems =| CountMI|
|00001750| 74 65 6d 73 28 6d 79 4d | 65 6e 75 73 5b 66 6f 6e |tems(myM|enus[fon|
|00001760| 74 4d 65 6e 75 5d 29 3b | 0d 09 09 0d 09 09 66 6f |tMenu]);|......fo|
|00001770| 72 20 28 69 3d 31 3b 69 | 3c 3d 6e 75 6d 49 74 65 |r (i=1;i|<=numIte|
|00001780| 6d 73 3b 69 2b 2b 29 0d | 09 09 09 45 6e 61 62 6c |ms;i++).|...Enabl|
|00001790| 65 49 74 65 6d 28 6d 79 | 4d 65 6e 75 73 5b 66 6f |eItem(my|Menus[fo|
|000017a0| 6e 74 4d 65 6e 75 5d 2c | 69 29 3b 0d 09 09 0d 09 |ntMenu],|i);.....|
|000017b0| 09 4d 61 69 6e 74 61 69 | 6e 46 6f 6e 74 4d 65 6e |.Maintai|nFontMen|
|000017c0| 75 28 29 3b 0d 09 7d 0d | 09 0d 09 65 6c 73 65 0d |u();..}.|...else.|
|000017d0| 09 7b 0d 09 09 45 6e 61 | 62 6c 65 49 74 65 6d 28 |.{...Ena|bleItem(|
|000017e0| 6d 79 4d 65 6e 75 73 5b | 66 69 6c 65 4d 65 6e 75 |myMenus[|fileMenu|
|000017f0| 5d 2c 6e 65 77 43 6f 6d | 6d 61 6e 64 29 3b 0d 09 |],newCom|mand);..|
|00001800| 09 45 6e 61 62 6c 65 49 | 74 65 6d 28 6d 79 4d 65 |.EnableI|tem(myMe|
|00001810| 6e 75 73 5b 66 69 6c 65 | 4d 65 6e 75 5d 2c 6f 70 |nus[file|Menu],op|
|00001820| 65 6e 43 6f 6d 6d 61 6e | 64 29 3b 0d 09 09 44 69 |enComman|d);...Di|
|00001830| 73 61 62 6c 65 49 74 65 | 6d 28 6d 79 4d 65 6e 75 |sableIte|m(myMenu|
|00001840| 73 5b 66 69 6c 65 4d 65 | 6e 75 5d 2c 69 6e 73 65 |s[fileMe|nu],inse|
|00001850| 72 74 43 6f 6d 6d 61 6e | 64 29 3b 0d 09 09 44 69 |rtComman|d);...Di|
|00001860| 73 61 62 6c 65 49 74 65 | 6d 28 6d 79 4d 65 6e 75 |sableIte|m(myMenu|
|00001870| 73 5b 66 69 6c 65 4d 65 | 6e 75 5d 2c 63 6c 6f 73 |s[fileMe|nu],clos|
|00001880| 65 43 6f 6d 6d 61 6e 64 | 29 3b 0d 09 09 44 69 73 |eCommand|);...Dis|
|00001890| 61 62 6c 65 49 74 65 6d | 28 6d 79 4d 65 6e 75 73 |ableItem|(myMenus|
|000018a0| 5b 66 69 6c 65 4d 65 6e | 75 5d 2c 73 61 76 65 43 |[fileMen|u],saveC|
|000018b0| 6f 6d 6d 61 6e 64 29 3b | 0d 09 09 44 69 73 61 62 |ommand);|...Disab|
|000018c0| 6c 65 49 74 65 6d 28 6d | 79 4d 65 6e 75 73 5b 66 |leItem(m|yMenus[f|
|000018d0| 69 6c 65 4d 65 6e 75 5d | 2c 73 61 76 65 41 73 43 |ileMenu]|,saveAsC|
|000018e0| 6f 6d 6d 61 6e 64 29 3b | 0d 09 09 0d 09 09 0d 09 |ommand);|........|
|000018f0| 09 45 6e 61 62 6c 65 49 | 74 65 6d 28 6d 79 4d 65 |.EnableI|tem(myMe|
|00001900| 6e 75 73 5b 65 64 69 74 | 4d 65 6e 75 5d 2c 75 6e |nus[edit|Menu],un|
|00001910| 64 6f 43 6f 6d 6d 61 6e | 64 29 3b 0d 09 09 45 6e |doComman|d);...En|
|00001920| 61 62 6c 65 49 74 65 6d | 28 6d 79 4d 65 6e 75 73 |ableItem|(myMenus|
|00001930| 5b 65 64 69 74 4d 65 6e | 75 5d 2c 63 75 74 43 6f |[editMen|u],cutCo|
|00001940| 6d 6d 61 6e 64 29 3b 0d | 09 09 45 6e 61 62 6c 65 |mmand);.|..Enable|
|00001950| 49 74 65 6d 28 6d 79 4d | 65 6e 75 73 5b 65 64 69 |Item(myM|enus[edi|
|00001960| 74 4d 65 6e 75 5d 2c 63 | 6f 70 79 43 6f 6d 6d 61 |tMenu],c|opyComma|
|00001970| 6e 64 29 3b 0d 09 09 45 | 6e 61 62 6c 65 49 74 65 |nd);...E|nableIte|
|00001980| 6d 28 6d 79 4d 65 6e 75 | 73 5b 65 64 69 74 4d 65 |m(myMenu|s[editMe|
|00001990| 6e 75 5d 2c 70 61 73 74 | 65 43 6f 6d 6d 61 6e 64 |nu],past|eCommand|
|000019a0| 29 3b 0d 09 09 45 6e 61 | 62 6c 65 49 74 65 6d 28 |);...Ena|bleItem(|
|000019b0| 6d 79 4d 65 6e 75 73 5b | 65 64 69 74 4d 65 6e 75 |myMenus[|editMenu|
|000019c0| 5d 2c 63 6c 65 61 72 43 | 6f 6d 6d 61 6e 64 29 3b |],clearC|ommand);|
|000019d0| 0d 09 09 44 69 73 61 62 | 6c 65 49 74 65 6d 28 6d |...Disab|leItem(m|
|000019e0| 79 4d 65 6e 75 73 5b 65 | 64 69 74 4d 65 6e 75 5d |yMenus[e|ditMenu]|
|000019f0| 2c 73 65 6c 65 63 74 43 | 6f 6d 6d 61 6e 64 29 3b |,selectC|ommand);|
|00001a00| 0d 09 09 44 69 73 61 62 | 6c 65 49 74 65 6d 28 6d |...Disab|leItem(m|
|00001a10| 79 4d 65 6e 75 73 5b 65 | 64 69 74 4d 65 6e 75 5d |yMenus[e|ditMenu]|
|00001a20| 2c 77 72 61 70 43 6f 6d | 6d 61 6e 64 29 3b 0d 09 |,wrapCom|mand);..|
|00001a30| 09 43 68 65 63 6b 49 74 | 65 6d 28 6d 79 4d 65 6e |.CheckIt|em(myMen|
|00001a40| 75 73 5b 65 64 69 74 4d | 65 6e 75 5d 2c 77 72 61 |us[editM|enu],wra|
|00001a50| 70 43 6f 6d 6d 61 6e 64 | 2c 46 41 4c 53 45 29 3b |pCommand|,FALSE);|
|00001a60| 0d 09 09 0d 09 09 6e 75 | 6d 49 74 65 6d 73 20 3d |......nu|mItems =|
|00001a70| 20 43 6f 75 6e 74 4d 49 | 74 65 6d 73 28 6d 79 4d | CountMI|tems(myM|
|00001a80| 65 6e 75 73 5b 66 6f 6e | 74 4d 65 6e 75 5d 29 3b |enus[fon|tMenu]);|
|00001a90| 0d 09 09 0d 09 09 66 6f | 72 20 28 69 3d 31 3b 69 |......fo|r (i=1;i|
|00001aa0| 3c 3d 6e 75 6d 49 74 65 | 6d 73 3b 69 2b 2b 29 0d |<=numIte|ms;i++).|
|00001ab0| 09 09 7b 0d 09 09 09 44 | 69 73 61 62 6c 65 49 74 |..{....D|isableIt|
|00001ac0| 65 6d 28 6d 79 4d 65 6e | 75 73 5b 66 6f 6e 74 4d |em(myMen|us[fontM|
|00001ad0| 65 6e 75 5d 2c 69 29 3b | 0d 09 09 09 43 68 65 63 |enu],i);|....Chec|
|00001ae0| 6b 49 74 65 6d 28 6d 79 | 4d 65 6e 75 73 5b 66 6f |kItem(my|Menus[fo|
|00001af0| 6e 74 4d 65 6e 75 5d 2c | 69 2c 46 41 4c 53 45 29 |ntMenu],|i,FALSE)|
|00001b00| 3b 0d 09 09 7d 0d 09 7d | 0d 0d 7d 0d 0d 0d 44 6f |;...}..}|..}...Do|
|00001b10| 43 6f 6d 6d 61 6e 64 28 | 6d 52 65 73 75 6c 74 29 |Command(|mResult)|
|00001b20| 0d 6c 6f 6e 67 20 6d 52 | 65 73 75 6c 74 3b 0d 7b |.long mR|esult;.{|
|00001b30| 0d 69 6e 74 09 09 09 74 | 68 65 49 74 65 6d 2c 6e |.int...t|heItem,n|
|00001b40| 75 6d 49 74 65 6d 73 2c | 75 73 65 72 43 68 6f 69 |umItems,|userChoi|
|00001b50| 63 65 3b 0d 57 69 6e 64 | 6f 77 50 65 65 6b 20 09 |ce;.Wind|owPeek .|
|00001b60| 77 50 74 72 3b 0d 47 72 | 61 66 50 74 72 09 09 6f |wPtr;.Gr|afPtr..o|
|00001b70| 6c 64 50 6f 72 74 3b 0d | 53 46 52 65 70 6c 79 09 |ldPort;.|SFReply.|
|00001b80| 09 6f 6c 64 53 46 52 65 | 70 6c 79 3b 0d 52 65 63 |.oldSFRe|ply;.Rec|
|00001b90| 74 09 09 74 65 6d 70 52 | 65 63 74 3b 0d 0d 0d 09 |t..tempR|ect;....|
|00001ba0| 74 68 65 49 74 65 6d 20 | 3d 20 4c 6f 57 6f 72 64 |theItem |= LoWord|
|00001bb0| 28 6d 52 65 73 75 6c 74 | 29 3b 0d 09 0d 09 73 77 |(mResult|);....sw|
|00001bc0| 69 74 63 68 20 28 48 69 | 57 6f 72 64 28 6d 52 65 |itch (Hi|Word(mRe|
|00001bd0| 73 75 6c 74 29 29 20 0d | 09 7b 0d 09 09 63 61 73 |sult)) .|.{...cas|
|00001be0| 65 20 61 70 70 6c 65 49 | 44 3a 0d 09 09 09 69 66 |e appleI|D:....if|
|00001bf0| 20 28 74 68 65 49 74 65 | 6d 20 3d 3d 20 31 29 0d | (theIte|m == 1).|
|00001c00| 09 09 09 09 44 6f 41 62 | 6f 75 74 42 6f 78 28 30 |....DoAb|outBox(0|
|00001c10| 29 3b 0d 09 09 09 0d 09 | 09 09 65 6c 73 65 0d 09 |);......|..else..|
|00001c20| 09 09 7b 0d 09 09 09 09 | 47 65 74 50 6f 72 74 28 |..{.....|GetPort(|
|00001c30| 26 6f 6c 64 50 6f 72 74 | 29 3b 0d 09 09 09 09 47 |&oldPort|);.....G|
|00001c40| 65 74 49 74 65 6d 28 6d | 79 4d 65 6e 75 73 5b 61 |etItem(m|yMenus[a|
|00001c50| 70 70 6c 65 4d 65 6e 75 | 5d 2c 20 74 68 65 49 74 |ppleMenu|], theIt|
|00001c60| 65 6d 2c 20 26 74 65 6d | 70 53 74 72 69 6e 67 29 |em, &tem|pString)|
|00001c70| 3b 0d 09 09 09 09 4f 70 | 65 6e 44 65 73 6b 41 63 |;.....Op|enDeskAc|
|00001c80| 63 28 26 74 65 6d 70 53 | 74 72 69 6e 67 29 3b 0d |c(&tempS|tring);.|
|00001c90| 09 09 09 09 53 65 74 50 | 6f 72 74 28 6f 6c 64 50 |....SetP|ort(oldP|
|00001ca0| 6f 72 74 29 3b 0d 09 09 | 09 7d 0d 09 09 09 0d 09 |ort);...|.}......|
|00001cb0| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 0d 09 09 63 |..break;|.......c|
|00001cc0| 61 73 65 20 66 69 6c 65 | 49 44 3a 0d 09 09 09 73 |ase file|ID:....s|
|00001cd0| 77 69 74 63 68 20 28 74 | 68 65 49 74 65 6d 29 0d |witch (t|heItem).|
|00001ce0| 09 09 09 7b 0d 09 09 09 | 09 63 61 73 65 20 6e 65 |...{....|.case ne|
|00001cf0| 77 43 6f 6d 6d 61 6e 64 | 3a 0d 09 09 09 09 09 69 |wCommand|:......i|
|00001d00| 66 20 28 21 74 68 65 54 | 45 48 33 32 4b 29 0d 09 |f (!theT|EH32K)..|
|00001d10| 09 09 09 09 09 44 6f 53 | 68 6f 77 57 69 6e 64 6f |.....DoS|howWindo|
|00001d20| 77 28 29 3b 0d 09 09 09 | 09 09 65 6c 73 65 0d 09 |w();....|..else..|
|00001d30| 09 09 09 09 09 53 79 73 | 42 65 65 70 28 31 29 3b |.....Sys|Beep(1);|
|00001d40| 0d 09 09 09 09 09 0d 09 | 09 09 09 09 62 72 65 61 |........|....brea|
|00001d50| 6b 3b 0d 09 09 09 09 0d | 09 09 09 09 63 61 73 65 |k;......|....case|
|00001d60| 20 6f 70 65 6e 43 6f 6d | 6d 61 6e 64 3a 0d 09 09 | openCom|mand:...|
|00001d70| 09 09 09 69 66 20 28 74 | 68 65 54 45 48 33 32 4b |...if (t|heTEH32K|
|00001d80| 20 26 26 20 44 6f 43 6c | 6f 73 65 57 69 6e 64 6f | && DoCl|oseWindo|
|00001d90| 77 28 74 68 65 57 50 74 | 72 29 29 0d 09 09 09 09 |w(theWPt|r)).....|
|00001da0| 09 7b 0d 09 09 09 09 09 | 09 44 6f 53 68 6f 77 57 |.{......|.DoShowW|
|00001db0| 69 6e 64 6f 77 28 29 3b | 0d 09 09 09 09 09 09 0d |indow();|........|
|00001dc0| 09 09 09 09 09 09 69 66 | 20 28 4f 70 65 6e 54 65 |......if| (OpenTe|
|00001dd0| 78 74 46 69 6c 65 28 74 | 68 65 54 45 48 33 32 4b |xtFile(t|heTEH32K|
|00001de0| 2c 26 6d 79 53 46 52 65 | 70 6c 79 29 29 0d 09 09 |,&mySFRe|ply))...|
|00001df0| 09 09 09 09 7b 0d 09 09 | 09 09 09 09 09 53 65 74 |....{...|.....Set|
|00001e00| 57 54 69 74 6c 65 28 74 | 68 65 57 50 74 72 2c 6d |WTitle(t|heWPtr,m|
|00001e10| 79 53 46 52 65 70 6c 79 | 2e 66 4e 61 6d 65 29 3b |ySFReply|.fName);|
|00001e20| 0d 09 09 09 09 09 09 09 | 41 64 6a 75 73 74 53 63 |........|AdjustSc|
|00001e30| 72 6f 6c 6c 42 61 72 28 | 29 3b 0d 09 09 09 09 09 |rollBar(|);......|
|00001e40| 09 09 63 68 61 6e 67 65 | 64 20 3d 20 46 41 4c 53 |..change|d = FALS|
|00001e50| 45 3b 0d 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |E;......|.}......|
|00001e60| 7d 0d 09 09 09 09 09 0d | 09 09 09 09 09 65 6c 73 |}.......|.....els|
|00001e70| 65 20 69 66 20 28 21 74 | 68 65 54 45 48 33 32 4b |e if (!t|heTEH32K|
|00001e80| 29 0d 09 09 09 09 09 7b | 0d 09 09 09 09 09 09 44 |)......{|.......D|
|00001e90| 6f 53 68 6f 77 57 69 6e | 64 6f 77 28 29 3b 0d 09 |oShowWin|dow();..|
|00001ea0| 09 09 09 09 09 0d 09 09 | 09 09 09 09 69 66 20 28 |........|....if (|
|00001eb0| 4f 70 65 6e 54 65 78 74 | 46 69 6c 65 28 74 68 65 |OpenText|File(the|
|00001ec0| 54 45 48 33 32 4b 2c 26 | 6d 79 53 46 52 65 70 6c |TEH32K,&|mySFRepl|
|00001ed0| 79 29 29 0d 09 09 09 09 | 09 09 7b 0d 09 09 09 09 |y)).....|..{.....|
|00001ee0| 09 09 09 53 65 74 57 54 | 69 74 6c 65 28 74 68 65 |...SetWT|itle(the|
|00001ef0| 57 50 74 72 2c 6d 79 53 | 46 52 65 70 6c 79 2e 66 |WPtr,myS|FReply.f|
|00001f00| 4e 61 6d 65 29 3b 0d 09 | 09 09 09 09 09 09 41 64 |Name);..|......Ad|
|00001f10| 6a 75 73 74 53 63 72 6f | 6c 6c 42 61 72 28 29 3b |justScro|llBar();|
|00001f20| 0d 09 09 09 09 09 09 09 | 63 68 61 6e 67 65 64 20 |........|changed |
|00001f30| 3d 20 46 41 4c 53 45 3b | 0d 09 09 09 09 09 09 7d |= FALSE;|.......}|
|00001f40| 0d 09 09 09 09 09 7d 0d | 09 09 09 09 09 0d 09 09 |......}.|........|
|00001f50| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 0d 09 |...break|;.......|
|00001f60| 09 09 09 63 61 73 65 20 | 69 6e 73 65 72 74 43 6f |...case |insertCo|
|00001f70| 6d 6d 61 6e 64 3a 0d 09 | 09 09 09 09 69 66 20 28 |mmand:..|....if (|
|00001f80| 74 68 65 54 45 48 33 32 | 4b 29 0d 09 09 09 09 09 |theTEH32|K)......|
|00001f90| 7b 0d 09 09 09 09 09 09 | 63 68 61 6e 67 65 64 20 |{.......|changed |
|00001fa0| 3d 20 49 6e 73 65 72 74 | 54 65 78 74 46 69 6c 65 |= Insert|TextFile|
|00001fb0| 28 74 68 65 54 45 48 33 | 32 4b 29 3b 0d 09 09 09 |(theTEH3|2K);....|
|00001fc0| 09 09 09 0d 09 09 09 09 | 09 09 41 64 6a 75 73 74 |........|..Adjust|
|00001fd0| 53 63 72 6f 6c 6c 42 61 | 72 28 29 3b 0d 09 09 09 |ScrollBa|r();....|
|00001fe0| 09 09 7d 0d 09 09 09 09 | 09 0d 09 09 09 09 09 62 |..}.....|.......b|
|00001ff0| 72 65 61 6b 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |reak;...|........|
|00002000| 63 61 73 65 20 63 6c 6f | 73 65 43 6f 6d 6d 61 6e |case clo|seComman|
|00002010| 64 3a 0d 09 09 09 09 09 | 69 66 20 28 74 68 65 54 |d:......|if (theT|
|00002020| 45 48 33 32 4b 29 0d 09 | 09 09 09 09 09 44 6f 43 |EH32K)..|.....DoC|
|00002030| 6c 6f 73 65 57 69 6e 64 | 6f 77 28 74 68 65 57 50 |loseWind|ow(theWP|
|00002040| 74 72 29 3b 0d 09 09 09 | 09 09 65 6c 73 65 0d 09 |tr);....|..else..|
|00002050| 09 09 09 09 09 53 79 73 | 42 65 65 70 28 31 29 3b |.....Sys|Beep(1);|
|00002060| 0d 09 09 09 09 09 09 0d | 09 09 09 09 09 62 72 65 |........|.....bre|
|00002070| 61 6b 3b 0d 09 09 09 09 | 0d 09 09 09 09 63 61 73 |ak;.....|.....cas|
|00002080| 65 20 73 61 76 65 43 6f | 6d 6d 61 6e 64 3a 0d 09 |e saveCo|mmand:..|
|00002090| 09 09 09 09 69 66 20 28 | 74 68 65 54 45 48 33 32 |....if (|theTEH32|
|000020a0| 4b 29 0d 09 09 09 09 09 | 7b 0d 09 09 09 09 09 09 |K)......|{.......|
|000020b0| 69 66 20 28 53 61 76 65 | 54 65 78 74 46 69 6c 65 |if (Save|TextFile|
|000020c0| 28 74 68 65 54 45 48 33 | 32 4b 2c 26 6d 79 53 46 |(theTEH3|2K,&mySF|
|000020d0| 52 65 70 6c 79 29 29 0d | 09 09 09 09 09 09 7b 0d |Reply)).|......{.|
|000020e0| 09 09 09 09 09 09 09 53 | 65 74 57 54 69 74 6c 65 |.......S|etWTitle|
|000020f0| 28 74 68 65 57 50 74 72 | 2c 6d 79 53 46 52 65 70 |(theWPtr|,mySFRep|
|00002100| 6c 79 2e 66 4e 61 6d 65 | 29 3b 0d 09 09 09 09 09 |ly.fName|);......|
|00002110| 09 09 63 68 61 6e 67 65 | 64 20 3d 20 46 41 4c 53 |..change|d = FALS|
|00002120| 45 3b 0d 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |E;......|.}......|
|00002130| 7d 0d 09 09 09 09 09 09 | 0d 09 09 09 09 09 65 6c |}.......|......el|
|00002140| 73 65 0d 09 09 09 09 09 | 09 53 79 73 42 65 65 70 |se......|.SysBeep|
|00002150| 28 31 29 3b 0d 09 09 09 | 09 09 0d 09 09 09 09 09 |(1);....|........|
|00002160| 62 72 65 61 6b 3b 0d 09 | 09 09 09 0d 09 09 09 09 |break;..|........|
|00002170| 63 61 73 65 20 73 61 76 | 65 41 73 43 6f 6d 6d 61 |case sav|eAsComma|
|00002180| 6e 64 3a 0d 09 09 09 09 | 09 69 66 20 28 74 68 65 |nd:.....|.if (the|
|00002190| 54 45 48 33 32 4b 29 0d | 09 09 09 09 09 7b 0d 09 |TEH32K).|.....{..|
|000021a0| 09 09 09 09 09 6f 6c 64 | 53 46 52 65 70 6c 79 20 |.....old|SFReply |
|000021b0| 3d 20 6d 79 53 46 52 65 | 70 6c 79 3b 0d 09 09 09 |= mySFRe|ply;....|
|000021c0| 09 09 09 6d 79 53 46 52 | 65 70 6c 79 2e 67 6f 6f |...mySFR|eply.goo|
|000021d0| 64 20 3d 20 46 41 4c 53 | 45 3b 0d 09 09 09 09 09 |d = FALS|E;......|
|000021e0| 09 0d 09 09 09 09 09 09 | 69 66 20 28 53 61 76 65 |........|if (Save|
|000021f0| 54 65 78 74 46 69 6c 65 | 28 74 68 65 54 45 48 33 |TextFile|(theTEH3|
|00002200| 32 4b 2c 26 6d 79 53 46 | 52 65 70 6c 79 29 29 0d |2K,&mySF|Reply)).|
|00002210| 09 09 09 09 09 09 7b 0d | 09 09 09 09 09 09 09 63 |......{.|.......c|
|00002220| 68 61 6e 67 65 64 20 3d | 20 46 41 4c 53 45 3b 0d |hanged =| FALSE;.|
|00002230| 09 09 09 09 09 09 09 53 | 65 74 57 54 69 74 6c 65 |.......S|etWTitle|
|00002240| 28 74 68 65 57 50 74 72 | 2c 6d 79 53 46 52 65 70 |(theWPtr|,mySFRep|
|00002250| 6c 79 2e 66 4e 61 6d 65 | 29 3b 0d 09 09 09 09 09 |ly.fName|);......|
|00002260| 09 7d 0d 09 09 09 09 09 | 09 65 6c 73 65 0d 09 09 |.}......|.else...|
|00002270| 09 09 09 09 09 6d 79 53 | 46 52 65 70 6c 79 20 3d |.....myS|FReply =|
|00002280| 20 6f 6c 64 53 46 52 65 | 70 6c 79 3b 0d 09 09 09 | oldSFRe|ply;....|
|00002290| 09 09 7d 0d 09 09 09 09 | 09 09 0d 09 09 09 09 09 |..}.....|........|
|000022a0| 65 6c 73 65 0d 09 09 09 | 09 09 09 53 79 73 42 65 |else....|...SysBe|
|000022b0| 65 70 28 31 29 3b 0d 09 | 09 09 09 09 0d 09 09 09 |ep(1);..|........|
|000022c0| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 09 0d 09 09 |..break;|........|
|000022d0| 09 09 63 61 73 65 20 71 | 75 69 74 43 6f 6d 6d 61 |..case q|uitComma|
|000022e0| 6e 64 3a 0d 09 09 09 09 | 09 69 66 20 28 74 68 65 |nd:.....|.if (the|
|000022f0| 54 45 48 33 32 4b 29 0d | 09 09 09 09 09 7b 0d 09 |TEH32K).|.....{..|
|00002300| 09 09 09 09 09 69 66 20 | 28 44 6f 43 6c 6f 73 65 |.....if |(DoClose|
|00002310| 57 69 6e 64 6f 77 28 74 | 68 65 57 50 74 72 29 29 |Window(t|heWPtr))|
|00002320| 0d 09 09 09 09 09 09 09 | 61 6c 69 76 65 20 3d 20 |........|alive = |
|00002330| 46 41 4c 53 45 3b 0d 09 | 09 09 09 09 7d 0d 09 09 |FALSE;..|....}...|
|00002340| 09 09 09 65 6c 73 65 0d | 09 09 09 09 09 09 61 6c |...else.|......al|
|00002350| 69 76 65 20 3d 20 46 41 | 4c 53 45 3b 0d 09 09 09 |ive = FA|LSE;....|
|00002360| 09 09 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |........|break;..|
|00002370| 09 09 7d 0d 09 09 09 0d | 09 09 09 62 72 65 61 6b |..}.....|...break|
|00002380| 3b 0d 09 09 0d 09 09 63 | 61 73 65 20 65 64 69 74 |;......c|ase edit|
|00002390| 49 44 3a 0d 09 09 09 73 | 77 69 74 63 68 28 74 68 |ID:....s|witch(th|
|000023a0| 65 49 74 65 6d 29 0d 09 | 09 09 7b 0d 09 09 09 09 |eItem)..|..{.....|
|000023b0| 63 61 73 65 20 63 75 74 | 43 6f 6d 6d 61 6e 64 3a |case cut|Command:|
|000023c0| 0d 09 09 09 09 09 69 66 | 20 28 21 44 6f 43 75 74 |......if| (!DoCut|
|000023d0| 28 29 29 0d 09 09 09 09 | 09 09 53 79 73 74 65 6d |()).....|..System|
|000023e0| 45 64 69 74 28 74 68 65 | 49 74 65 6d 20 2d 20 31 |Edit(the|Item - 1|
|000023f0| 29 3b 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |);......|break;..|
|00002400| 09 09 09 0d 09 09 09 09 | 63 61 73 65 20 63 6f 70 |........|case cop|
|00002410| 79 43 6f 6d 6d 61 6e 64 | 3a 0d 09 09 09 09 09 69 |yCommand|:......i|
|00002420| 66 20 28 21 44 6f 43 6f | 70 79 28 29 29 0d 09 09 |f (!DoCo|py())...|
|00002430| 09 09 09 09 53 79 73 74 | 65 6d 45 64 69 74 28 74 |....Syst|emEdit(t|
|00002440| 68 65 49 74 65 6d 20 2d | 20 31 29 3b 0d 09 09 09 |heItem -| 1);....|
|00002450| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 09 0d 09 09 |..break;|........|
|00002460| 09 09 63 61 73 65 20 70 | 61 73 74 65 43 6f 6d 6d |..case p|asteComm|
|00002470| 61 6e 64 3a 0d 09 09 09 | 09 09 69 66 20 28 21 44 |and:....|..if (!D|
|00002480| 6f 50 61 73 74 65 28 29 | 29 0d 09 09 09 09 09 09 |oPaste()|).......|
|00002490| 53 79 73 74 65 6d 45 64 | 69 74 28 74 68 65 49 74 |SystemEd|it(theIt|
|000024a0| 65 6d 20 2d 20 31 29 3b | 0d 09 09 09 09 09 0d 09 |em - 1);|........|
|000024b0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 0d |....brea|k;......|
|000024c0| 09 09 09 09 63 61 73 65 | 20 63 6c 65 61 72 43 6f |....case| clearCo|
|000024d0| 6d 6d 61 6e 64 3a 0d 09 | 09 09 09 09 69 66 20 28 |mmand:..|....if (|
|000024e0| 21 44 6f 43 6c 65 61 72 | 28 29 29 0d 09 09 09 09 |!DoClear|()).....|
|000024f0| 09 09 53 79 73 74 65 6d | 45 64 69 74 28 74 68 65 |..System|Edit(the|
|00002500| 49 74 65 6d 20 2d 20 31 | 29 3b 0d 09 09 09 09 09 |Item - 1|);......|
|00002510| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00002520| 09 0d 09 09 09 09 63 61 | 73 65 20 73 65 6c 65 63 |......ca|se selec|
|00002530| 74 43 6f 6d 6d 61 6e 64 | 3a 0d 09 09 09 09 09 69 |tCommand|:......i|
|00002540| 66 20 28 21 44 6f 53 65 | 6c 65 63 74 41 6c 6c 28 |f (!DoSe|lectAll(|
|00002550| 29 29 0d 09 09 09 09 09 | 09 53 79 73 74 65 6d 45 |))......|.SystemE|
|00002560| 64 69 74 28 74 68 65 49 | 74 65 6d 20 2d 20 31 29 |dit(theI|tem - 1)|
|00002570| 3b 0d 09 09 09 09 09 0d | 09 09 09 09 09 62 72 65 |;.......|.....bre|
|00002580| 61 6b 3b 0d 09 09 09 09 | 0d 09 09 09 09 63 61 73 |ak;.....|.....cas|
|00002590| 65 20 77 72 61 70 43 6f | 6d 6d 61 6e 64 3a 0d 09 |e wrapCo|mmand:..|
|000025a0| 09 09 09 09 69 66 20 28 | 74 68 65 57 50 74 72 20 |....if (|theWPtr |
|000025b0| 26 26 20 74 68 65 57 50 | 74 72 20 3d 3d 20 46 72 |&& theWP|tr == Fr|
|000025c0| 6f 6e 74 57 69 6e 64 6f | 77 28 29 20 26 26 20 74 |ontWindo|w() && t|
|000025d0| 68 65 54 45 48 33 32 4b | 29 0d 09 09 09 09 09 7b |heTEH32K|)......{|
|000025e0| 0d 09 09 09 09 09 09 28 | 2a 2a 74 68 65 54 45 48 |.......(|**theTEH|
|000025f0| 33 32 4b 29 2e 63 72 4f | 6e 6c 79 20 3d 20 21 28 |32K).crO|nly = !(|
|00002600| 2a 2a 74 68 65 54 45 48 | 33 32 4b 29 2e 63 72 4f |**theTEH|32K).crO|
|00002610| 6e 6c 79 3b 0d 09 09 09 | 09 09 09 0d 09 09 09 09 |nly;....|........|
|00002620| 09 09 54 45 33 32 4b 43 | 61 6c 54 65 78 74 28 74 |..TE32KC|alText(t|
|00002630| 68 65 54 45 48 33 32 4b | 29 3b 0d 09 09 09 09 09 |heTEH32K|);......|
|00002640| 09 0d 09 09 09 09 09 09 | 74 65 6d 70 52 65 63 74 |........|tempRect|
|00002650| 20 3d 20 74 68 65 57 50 | 74 72 2d 3e 70 6f 72 74 | = theWP|tr->port|
|00002660| 52 65 63 74 3b 0d 09 09 | 09 09 09 09 47 65 74 50 |Rect;...|....GetP|
|00002670| 6f 72 74 28 26 6f 6c 64 | 50 6f 72 74 29 3b 0d 09 |ort(&old|Port);..|
|00002680| 09 09 09 09 09 53 65 74 | 50 6f 72 74 28 74 68 65 |.....Set|Port(the|
|00002690| 57 50 74 72 29 3b 0d 09 | 09 09 09 09 09 49 6e 76 |WPtr);..|.....Inv|
|000026a0| 61 6c 52 65 63 74 28 26 | 74 65 6d 70 52 65 63 74 |alRect(&|tempRect|
|000026b0| 29 3b 0d 09 09 09 09 09 | 09 53 65 74 50 6f 72 74 |);......|.SetPort|
|000026c0| 28 6f 6c 64 50 6f 72 74 | 29 3b 0d 09 09 09 09 09 |(oldPort|);......|
|000026d0| 09 0d 09 09 09 09 09 09 | 41 64 6a 75 73 74 46 6f |........|AdjustFo|
|000026e0| 72 52 65 73 69 7a 65 64 | 57 69 6e 64 6f 77 28 29 |rResized|Window()|
|000026f0| 3b 0d 09 09 09 09 09 7d | 0d 09 09 09 09 09 0d 09 |;......}|........|
|00002700| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 0d |....brea|k;......|
|00002710| 09 09 09 09 0d 09 09 09 | 09 64 65 66 61 75 6c 74 |........|.default|
|00002720| 3a 0d 09 09 09 09 09 53 | 79 73 74 65 6d 45 64 69 |:......S|ystemEdi|
|00002730| 74 28 74 68 65 49 74 65 | 6d 20 2d 20 31 29 3b 0d |t(theIte|m - 1);.|
|00002740| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 7d |.....bre|ak;....}|
|00002750| 0d 09 09 09 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |........|break;..|
|00002760| 09 09 0d 09 09 63 61 73 | 65 20 66 6f 6e 74 49 44 |.....cas|e fontID|
|00002770| 3a 0d 09 09 09 6e 75 6d | 49 74 65 6d 73 20 3d 20 |:....num|Items = |
|00002780| 43 6f 75 6e 74 4d 49 74 | 65 6d 73 28 6d 79 4d 65 |CountMIt|ems(myMe|
|00002790| 6e 75 73 5b 66 6f 6e 74 | 4d 65 6e 75 5d 29 3b 0d |nus[font|Menu]);.|
|000027a0| 09 09 09 0d 09 09 09 69 | 66 20 28 74 68 65 49 74 |.......i|f (theIt|
|000027b0| 65 6d 20 3c 3d 20 6e 75 | 6d 49 74 65 6d 73 2d 37 |em <= nu|mItems-7|
|000027c0| 29 0d 09 09 09 7b 0d 09 | 09 09 09 47 65 74 49 74 |)....{..|...GetIt|
|000027d0| 65 6d 28 6d 79 4d 65 6e | 75 73 5b 66 6f 6e 74 4d |em(myMen|us[fontM|
|000027e0| 65 6e 75 5d 2c 20 74 68 | 65 49 74 65 6d 2c 20 26 |enu], th|eItem, &|
|000027f0| 74 65 6d 70 53 74 72 69 | 6e 67 29 3b 0d 09 09 09 |tempStri|ng);....|
|00002800| 09 50 74 6f 43 73 74 72 | 28 74 65 6d 70 53 74 72 |.PtoCstr|(tempStr|
|00002810| 69 6e 67 29 3b 0d 09 09 | 09 09 44 6f 46 6f 6e 74 |ing);...|..DoFont|
|00002820| 53 69 7a 65 28 74 65 6d | 70 53 74 72 69 6e 67 2c |Size(tem|pString,|
|00002830| 2d 31 29 3b 0d 09 09 09 | 7d 0d 09 09 09 0d 09 09 |-1);....|}.......|
|00002840| 09 65 6c 73 65 0d 09 09 | 09 7b 0d 09 09 09 09 47 |.else...|.{.....G|
|00002850| 65 74 49 74 65 6d 28 6d | 79 4d 65 6e 75 73 5b 66 |etItem(m|yMenus[f|
|00002860| 6f 6e 74 4d 65 6e 75 5d | 2c 20 74 68 65 49 74 65 |ontMenu]|, theIte|
|00002870| 6d 2c 20 26 74 65 6d 70 | 53 74 72 69 6e 67 29 3b |m, &temp|String);|
|00002880| 0d 09 09 09 09 50 74 6f | 43 73 74 72 28 74 65 6d |.....Pto|Cstr(tem|
|00002890| 70 53 74 72 69 6e 67 29 | 3b 0d 09 09 09 09 0d 09 |pString)|;.......|
|000028a0| 09 09 09 69 66 20 28 73 | 73 63 61 6e 66 28 74 65 |...if (s|scanf(te|
|000028b0| 6d 70 53 74 72 69 6e 67 | 2c 22 25 64 22 2c 26 6e |mpString|,"%d",&n|
|000028c0| 75 6d 49 74 65 6d 73 29 | 3d 3d 31 29 0d 09 09 09 |umItems)|==1)....|
|000028d0| 09 7b 0d 09 09 09 09 09 | 74 65 6d 70 53 74 72 69 |.{......|tempStri|
|000028e0| 6e 67 5b 30 5d 20 3d 20 | 30 3b 0d 09 09 09 09 09 |ng[0] = |0;......|
|000028f0| 44 6f 46 6f 6e 74 53 69 | 7a 65 28 74 65 6d 70 53 |DoFontSi|ze(tempS|
|00002900| 74 72 69 6e 67 2c 6e 75 | 6d 49 74 65 6d 73 29 3b |tring,nu|mItems);|
|00002910| 0d 09 09 09 09 7d 0d 09 | 09 09 7d 0d 09 09 09 0d |.....}..|..}.....|
|00002920| 09 09 09 62 72 65 61 6b | 3b 0d 09 7d 0d 09 0d 09 |...break|;..}....|
|00002930| 48 69 6c 69 74 65 4d 65 | 6e 75 28 30 29 3b 0d 7d |HiliteMe|nu(0);.}|
|00002940| 0d 0d 0d 0d 0d 4f 70 65 | 6e 54 65 78 74 46 69 6c |.....Ope|nTextFil|
|00002950| 65 28 74 68 65 54 45 48 | 2c 6d 79 53 46 52 65 70 |e(theTEH|,mySFRep|
|00002960| 6c 79 29 0d 54 45 33 32 | 4b 48 61 6e 64 6c 65 09 |ly).TE32|KHandle.|
|00002970| 74 68 65 54 45 48 3b 53 | 46 52 65 70 6c 79 09 2a |theTEH;S|FReply.*|
|00002980| 6d 79 53 46 52 65 70 6c | 79 3b 0d 7b 0d 53 46 54 |mySFRepl|y;.{.SFT|
|00002990| 79 70 65 4c 69 73 74 09 | 6d 79 53 46 54 79 70 65 |ypeList.|mySFType|
|000029a0| 73 3b 0d 50 6f 69 6e 74 | 09 09 74 68 65 54 6f 70 |s;.Point|..theTop|
|000029b0| 4c 65 66 74 3b 0d 69 6e | 74 09 09 09 65 72 72 43 |Left;.in|t...errC|
|000029c0| 6f 64 65 2c 66 52 65 66 | 4e 75 6d 3b 0d 6c 6f 6e |ode,fRef|Num;.lon|
|000029d0| 67 09 09 62 79 74 65 43 | 6f 75 6e 74 3b 0d 50 74 |g..byteC|ount;.Pt|
|000029e0| 72 09 09 09 74 68 65 54 | 65 78 74 3b 0d 0d 0d 09 |r...theT|ext;....|
|000029f0| 69 66 20 28 74 68 65 54 | 45 48 29 0d 09 7b 0d 09 |if (theT|EH)..{..|
|00002a00| 09 74 68 65 54 6f 70 4c | 65 66 74 2e 68 20 3d 20 |.theTopL|eft.h = |
|00002a10| 73 63 72 65 65 6e 42 69 | 74 73 2e 62 6f 75 6e 64 |screenBi|ts.bound|
|00002a20| 73 2e 6c 65 66 74 20 2b | 20 28 73 63 72 65 65 6e |s.left +| (screen|
|00002a30| 42 69 74 73 2e 62 6f 75 | 6e 64 73 2e 72 69 67 68 |Bits.bou|nds.righ|
|00002a40| 74 20 2d 20 73 63 72 65 | 65 6e 42 69 74 73 2e 62 |t - scre|enBits.b|
|00002a50| 6f 75 6e 64 73 2e 6c 65 | 66 74 20 2d 20 33 34 38 |ounds.le|ft - 348|
|00002a60| 29 2f 32 3b 3b 0d 09 09 | 74 68 65 54 6f 70 4c 65 |)/2;;...|theTopLe|
|00002a70| 66 74 2e 76 20 3d 20 73 | 63 72 65 65 6e 42 69 74 |ft.v = s|creenBit|
|00002a80| 73 2e 62 6f 75 6e 64 73 | 2e 74 6f 70 20 2b 20 35 |s.bounds|.top + 5|
|00002a90| 30 3b 0d 09 09 0d 09 09 | 6d 79 53 46 54 79 70 65 |0;......|mySFType|
|00002aa0| 73 5b 30 5d 20 3d 20 27 | 54 45 58 54 27 3b 0d 09 |s[0] = '|TEXT';..|
|00002ab0| 09 0d 09 09 49 6e 69 74 | 43 75 72 73 6f 72 28 29 |....Init|Cursor()|
|00002ac0| 3b 0d 09 09 0d 09 09 53 | 46 47 65 74 46 69 6c 65 |;......S|FGetFile|
|00002ad0| 28 74 68 65 54 6f 70 4c | 65 66 74 2c 22 5c 53 65 |(theTopL|eft,"\Se|
|00002ae0| 6c 65 63 74 20 54 65 78 | 74 20 46 69 6c 65 20 54 |lect Tex|t File T|
|00002af0| 6f 20 4f 70 65 6e 3a 22 | 2c 30 4c 2c 31 2c 26 6d |o Open:"|,0L,1,&m|
|00002b00| 79 53 46 54 79 70 65 73 | 2c 30 4c 2c 6d 79 53 46 |ySFTypes|,0L,mySF|
|00002b10| 52 65 70 6c 79 29 3b 0d | 09 09 0d 09 09 69 66 20 |Reply);.|.....if |
|00002b20| 28 6d 79 53 46 52 65 70 | 6c 79 2d 3e 67 6f 6f 64 |(mySFRep|ly->good|
|00002b30| 29 0d 09 09 7b 0d 09 09 | 09 69 66 20 28 28 65 72 |)...{...|.if ((er|
|00002b40| 72 43 6f 64 65 20 3d 20 | 46 53 4f 70 65 6e 28 6d |rCode = |FSOpen(m|
|00002b50| 79 53 46 52 65 70 6c 79 | 2d 3e 66 4e 61 6d 65 2c |ySFReply|->fName,|
|00002b60| 6d 79 53 46 52 65 70 6c | 79 2d 3e 76 52 65 66 4e |mySFRepl|y->vRefN|
|00002b70| 75 6d 2c 26 66 52 65 66 | 4e 75 6d 29 29 21 3d 6e |um,&fRef|Num))!=n|
|00002b80| 6f 45 72 72 29 0d 09 09 | 09 7b 0d 09 09 09 09 6d |oErr)...|.{.....m|
|00002b90| 79 53 46 52 65 70 6c 79 | 2d 3e 67 6f 6f 64 20 3d |ySFReply|->good =|
|00002ba0| 20 46 41 4c 53 45 3b 0d | 09 09 09 09 50 74 6f 43 | FALSE;.|....PtoC|
|00002bb0| 73 74 72 28 28 63 68 61 | 72 20 2a 29 20 6d 79 53 |str((cha|r *) myS|
|00002bc0| 46 52 65 70 6c 79 2d 3e | 66 4e 61 6d 65 29 3b 0d |FReply->|fName);.|
|00002bd0| 09 09 09 09 73 70 72 69 | 6e 74 66 28 74 65 6d 70 |....spri|ntf(temp|
|00002be0| 53 74 72 69 6e 67 2c 22 | 4f 70 65 6e 54 65 78 74 |String,"|OpenText|
|00002bf0| 46 69 6c 65 3a 20 46 53 | 4f 70 65 6e 28 27 25 73 |File: FS|Open('%s|
|00002c00| 27 29 20 45 72 72 6f 72 | 20 25 64 22 2c 6d 79 53 |') Error| %d",myS|
|00002c10| 46 52 65 70 6c 79 2d 3e | 66 4e 61 6d 65 2c 65 72 |FReply->|fName,er|
|00002c20| 72 43 6f 64 65 29 3b 0d | 09 09 09 09 45 72 72 6f |rCode);.|....Erro|
|00002c30| 72 41 6c 65 72 74 28 74 | 65 6d 70 53 74 72 69 6e |rAlert(t|empStrin|
|00002c40| 67 29 3b 0d 09 09 09 09 | 72 65 74 75 72 6e 28 46 |g);.....|return(F|
|00002c50| 41 4c 53 45 29 3b 0d 09 | 09 09 7d 0d 09 09 09 0d |ALSE);..|..}.....|
|00002c60| 09 09 09 69 66 20 28 28 | 65 72 72 43 6f 64 65 20 |...if ((|errCode |
|00002c70| 3d 20 47 65 74 45 4f 46 | 28 66 52 65 66 4e 75 6d |= GetEOF|(fRefNum|
|00002c80| 2c 26 62 79 74 65 43 6f | 75 6e 74 29 29 21 3d 6e |,&byteCo|unt))!=n|
|00002c90| 6f 45 72 72 29 0d 09 09 | 09 7b 0d 09 09 09 09 6d |oErr)...|.{.....m|
|00002ca0| 79 53 46 52 65 70 6c 79 | 2d 3e 67 6f 6f 64 20 3d |ySFReply|->good =|
|00002cb0| 20 46 41 4c 53 45 3b 0d | 09 09 09 09 46 53 43 6c | FALSE;.|....FSCl|
|00002cc0| 6f 73 65 28 66 52 65 66 | 4e 75 6d 29 3b 0d 09 09 |ose(fRef|Num);...|
|00002cd0| 09 09 50 74 6f 43 73 74 | 72 28 28 63 68 61 72 20 |..PtoCst|r((char |
|00002ce0| 2a 29 20 6d 79 53 46 52 | 65 70 6c 79 2d 3e 66 4e |*) mySFR|eply->fN|
|00002cf0| 61 6d 65 29 3b 0d 09 09 | 09 09 73 70 72 69 6e 74 |ame);...|..sprint|
|00002d00| 66 28 74 65 6d 70 53 74 | 72 69 6e 67 2c 22 4f 70 |f(tempSt|ring,"Op|
|00002d10| 65 6e 54 65 78 74 46 69 | 6c 65 3a 20 47 65 74 45 |enTextFi|le: GetE|
|00002d20| 4f 46 28 27 25 73 27 2c | 30 29 20 45 72 72 6f 72 |OF('%s',|0) Error|
|00002d30| 20 25 64 22 2c 6d 79 53 | 46 52 65 70 6c 79 2d 3e | %d",myS|FReply->|
|00002d40| 66 4e 61 6d 65 2c 65 72 | 72 43 6f 64 65 29 3b 0d |fName,er|rCode);.|
|00002d50| 09 09 09 09 45 72 72 6f | 72 41 6c 65 72 74 28 74 |....Erro|rAlert(t|
|00002d60| 65 6d 70 53 74 72 69 6e | 67 29 3b 0d 09 09 09 09 |empStrin|g);.....|
|00002d70| 72 65 74 75 72 6e 28 46 | 41 4c 53 45 29 3b 0d 09 |return(F|ALSE);..|
|00002d80| 09 09 7d 0d 09 09 09 0d | 09 09 09 69 66 20 28 28 |..}.....|...if ((|
|00002d90| 65 72 72 43 6f 64 65 20 | 3d 20 53 65 74 46 50 6f |errCode |= SetFPo|
|00002da0| 73 28 66 52 65 66 4e 75 | 6d 2c 66 73 46 72 6f 6d |s(fRefNu|m,fsFrom|
|00002db0| 53 74 61 72 74 2c 30 4c | 29 29 21 3d 6e 6f 45 72 |Start,0L|))!=noEr|
|00002dc0| 72 29 0d 09 09 09 7b 0d | 09 09 09 09 6d 79 53 46 |r)....{.|....mySF|
|00002dd0| 52 65 70 6c 79 2d 3e 67 | 6f 6f 64 20 3d 20 46 41 |Reply->g|ood = FA|
|00002de0| 4c 53 45 3b 0d 09 09 09 | 09 46 53 43 6c 6f 73 65 |LSE;....|.FSClose|
|00002df0| 28 66 52 65 66 4e 75 6d | 29 3b 0d 09 09 09 09 50 |(fRefNum|);.....P|
|00002e00| 74 6f 43 73 74 72 28 28 | 63 68 61 72 20 2a 29 20 |toCstr((|char *) |
|00002e10| 6d 79 53 46 52 65 70 6c | 79 2d 3e 66 4e 61 6d 65 |mySFRepl|y->fName|
|00002e20| 29 3b 0d 09 09 09 09 73 | 70 72 69 6e 74 66 28 74 |);.....s|printf(t|
|00002e30| 65 6d 70 53 74 72 69 6e | 67 2c 22 4f 70 65 6e 54 |empStrin|g,"OpenT|
|00002e40| 65 78 74 46 69 6c 65 3a | 20 53 65 74 46 50 6f 73 |extFile:| SetFPos|
|00002e50| 28 27 25 73 27 2c 30 29 | 20 45 72 72 6f 72 20 25 |('%s',0)| Error %|
|00002e60| 64 22 2c 6d 79 53 46 52 | 65 70 6c 79 2d 3e 66 4e |d",mySFR|eply->fN|
|00002e70| 61 6d 65 2c 65 72 72 43 | 6f 64 65 29 3b 0d 09 09 |ame,errC|ode);...|
|00002e80| 09 09 45 72 72 6f 72 41 | 6c 65 72 74 28 74 65 6d |..ErrorA|lert(tem|
|00002e90| 70 53 74 72 69 6e 67 29 | 3b 0d 09 09 09 09 72 65 |pString)|;.....re|
|00002ea0| 74 75 72 6e 28 46 41 4c | 53 45 29 3b 0d 09 09 09 |turn(FAL|SE);....|
|00002eb0| 7d 0d 09 09 09 0d 09 09 | 09 74 68 65 54 65 78 74 |}.......|.theText|
|00002ec0| 20 3d 20 4e 65 77 50 74 | 72 28 62 79 74 65 43 6f | = NewPt|r(byteCo|
|00002ed0| 75 6e 74 29 3b 0d 09 09 | 09 0d 09 09 09 69 66 20 |unt);...|.....if |
|00002ee0| 28 53 74 72 69 70 41 64 | 64 72 65 73 73 28 74 68 |(StripAd|dress(th|
|00002ef0| 65 54 65 78 74 29 3d 3d | 30 4c 20 7c 7c 20 4d 65 |eText)==|0L || Me|
|00002f00| 6d 45 72 72 6f 72 28 29 | 29 0d 09 09 09 7b 0d 09 |mError()|)....{..|
|00002f10| 09 09 09 6d 79 53 46 52 | 65 70 6c 79 2d 3e 67 6f |...mySFR|eply->go|
|00002f20| 6f 64 20 3d 20 46 41 4c | 53 45 3b 0d 09 09 09 09 |od = FAL|SE;.....|
|00002f30| 46 53 43 6c 6f 73 65 28 | 66 52 65 66 4e 75 6d 29 |FSClose(|fRefNum)|
|00002f40| 3b 0d 09 09 09 09 73 70 | 72 69 6e 74 66 28 74 65 |;.....sp|rintf(te|
|00002f50| 6d 70 53 74 72 69 6e 67 | 2c 22 4f 70 65 6e 54 65 |mpString|,"OpenTe|
|00002f60| 78 74 46 69 6c 65 3a 20 | 4e 65 77 50 74 72 28 25 |xtFile: |NewPtr(%|
|00002f70| 6c 64 29 20 45 72 72 6f | 72 20 25 64 22 2c 62 79 |ld) Erro|r %d",by|
|00002f80| 74 65 43 6f 75 6e 74 2c | 4d 65 6d 45 72 72 6f 72 |teCount,|MemError|
|00002f90| 28 29 29 3b 0d 09 09 09 | 09 45 72 72 6f 72 41 6c |());....|.ErrorAl|
|00002fa0| 65 72 74 28 74 65 6d 70 | 53 74 72 69 6e 67 29 3b |ert(temp|String);|
|00002fb0| 0d 09 09 09 09 72 65 74 | 75 72 6e 28 46 41 4c 53 |.....ret|urn(FALS|
|00002fc0| 45 29 3b 0d 09 09 09 7d | 0d 09 09 09 0d 09 09 09 |E);....}|........|
|00002fd0| 53 65 74 43 75 72 73 6f | 72 28 26 77 61 69 74 43 |SetCurso|r(&waitC|
|00002fe0| 75 72 73 6f 72 29 3b 0d | 09 09 09 0d 09 09 09 69 |ursor);.|.......i|
|00002ff0| 66 20 28 28 65 72 72 43 | 6f 64 65 20 3d 20 46 53 |f ((errC|ode = FS|
|00003000| 52 65 61 64 28 66 52 65 | 66 4e 75 6d 2c 26 62 79 |Read(fRe|fNum,&by|
|00003010| 74 65 43 6f 75 6e 74 2c | 74 68 65 54 65 78 74 29 |teCount,|theText)|
|00003020| 29 21 3d 6e 6f 45 72 72 | 29 0d 09 09 09 7b 0d 09 |)!=noErr|)....{..|
|00003030| 09 09 09 49 6e 69 74 43 | 75 72 73 6f 72 28 29 3b |...InitC|ursor();|
|00003040| 0d 09 09 09 09 6d 79 53 | 46 52 65 70 6c 79 2d 3e |.....myS|FReply->|
|00003050| 67 6f 6f 64 20 3d 20 46 | 41 4c 53 45 3b 0d 09 09 |good = F|ALSE;...|
|00003060| 09 09 44 69 73 70 6f 73 | 50 74 72 28 74 68 65 54 |..Dispos|Ptr(theT|
|00003070| 65 78 74 29 3b 0d 09 09 | 09 09 46 53 43 6c 6f 73 |ext);...|..FSClos|
|00003080| 65 28 66 52 65 66 4e 75 | 6d 29 3b 0d 09 09 09 09 |e(fRefNu|m);.....|
|00003090| 50 74 6f 43 73 74 72 28 | 28 63 68 61 72 20 2a 29 |PtoCstr(|(char *)|
|000030a0| 20 6d 79 53 46 52 65 70 | 6c 79 2d 3e 66 4e 61 6d | mySFRep|ly->fNam|
|000030b0| 65 29 3b 0d 09 09 09 09 | 73 70 72 69 6e 74 66 28 |e);.....|sprintf(|
|000030c0| 74 65 6d 70 53 74 72 69 | 6e 67 2c 22 4f 70 65 6e |tempStri|ng,"Open|
|000030d0| 54 65 78 74 46 69 6c 65 | 3a 20 46 53 52 65 61 64 |TextFile|: FSRead|
|000030e0| 28 27 25 73 27 29 20 45 | 72 72 6f 72 20 25 64 22 |('%s') E|rror %d"|
|000030f0| 2c 6d 79 53 46 52 65 70 | 6c 79 2d 3e 66 4e 61 6d |,mySFRep|ly->fNam|
|00003100| 65 2c 65 72 72 43 6f 64 | 65 29 3b 0d 09 09 09 09 |e,errCod|e);.....|
|00003110| 45 72 72 6f 72 41 6c 65 | 72 74 28 74 65 6d 70 53 |ErrorAle|rt(tempS|
|00003120| 74 72 69 6e 67 29 3b 0d | 09 09 09 09 72 65 74 75 |tring);.|....retu|
|00003130| 72 6e 28 46 41 4c 53 45 | 29 3b 0d 09 09 09 7d 0d |rn(FALSE|);....}.|
|00003140| 09 09 09 0d 09 09 09 69 | 66 20 28 28 65 72 72 43 |.......i|f ((errC|
|00003150| 6f 64 65 20 3d 20 46 53 | 43 6c 6f 73 65 28 66 52 |ode = FS|Close(fR|
|00003160| 65 66 4e 75 6d 29 29 21 | 3d 6e 6f 45 72 72 29 0d |efNum))!|=noErr).|
|00003170| 09 09 09 7b 0d 09 09 09 | 09 49 6e 69 74 43 75 72 |...{....|.InitCur|
|00003180| 73 6f 72 28 29 3b 0d 09 | 09 09 09 6d 79 53 46 52 |sor();..|...mySFR|
|00003190| 65 70 6c 79 2d 3e 67 6f | 6f 64 20 3d 20 46 41 4c |eply->go|od = FAL|
|000031a0| 53 45 3b 0d 09 09 09 09 | 44 69 73 70 6f 73 50 74 |SE;.....|DisposPt|
|000031b0| 72 28 74 68 65 54 65 78 | 74 29 3b 0d 09 09 09 09 |r(theTex|t);.....|
|000031c0| 50 74 6f 43 73 74 72 28 | 28 63 68 61 72 20 2a 29 |PtoCstr(|(char *)|
|000031d0| 20 6d 79 53 46 52 65 70 | 6c 79 2d 3e 66 4e 61 6d | mySFRep|ly->fNam|
|000031e0| 65 29 3b 0d 09 09 09 09 | 73 70 72 69 6e 74 66 28 |e);.....|sprintf(|
|000031f0| 74 65 6d 70 53 74 72 69 | 6e 67 2c 22 4f 70 65 6e |tempStri|ng,"Open|
|00003200| 54 65 78 74 46 69 6c 65 | 3a 20 46 53 43 6c 6f 73 |TextFile|: FSClos|
|00003210| 65 28 27 25 73 27 2c 30 | 29 20 45 72 72 6f 72 20 |e('%s',0|) Error |
|00003220| 25 64 22 2c 6d 79 53 46 | 52 65 70 6c 79 2d 3e 66 |%d",mySF|Reply->f|
|00003230| 4e 61 6d 65 2c 65 72 72 | 43 6f 64 65 29 3b 0d 09 |Name,err|Code);..|
|00003240| 09 09 09 45 72 72 6f 72 | 41 6c 65 72 74 28 74 65 |...Error|Alert(te|
|00003250| 6d 70 53 74 72 69 6e 67 | 29 3b 0d 09 09 09 09 72 |mpString|);.....r|
|00003260| 65 74 75 72 6e 28 46 41 | 4c 53 45 29 3b 0d 09 09 |eturn(FA|LSE);...|
|00003270| 09 7d 0d 09 09 09 0d 09 | 09 09 54 45 33 32 4b 53 |.}......|..TE32KS|
|00003280| 65 74 54 65 78 74 28 74 | 68 65 54 65 78 74 2c 62 |etText(t|heText,b|
|00003290| 79 74 65 43 6f 75 6e 74 | 2c 74 68 65 54 45 48 29 |yteCount|,theTEH)|
|000032a0| 3b 0d 09 09 09 0d 09 09 | 09 44 69 73 70 6f 73 50 |;.......|.DisposP|
|000032b0| 74 72 28 74 68 65 54 65 | 78 74 29 3b 0d 09 09 09 |tr(theTe|xt);....|
|000032c0| 0d 09 09 09 49 6e 69 74 | 43 75 72 73 6f 72 28 29 |....Init|Cursor()|
|000032d0| 3b 0d 09 09 09 0d 09 09 | 09 72 65 74 75 72 6e 28 |;.......|.return(|
|000032e0| 54 52 55 45 29 3b 0d 09 | 09 7d 0d 09 09 0d 09 09 |TRUE);..|.}......|
|000032f0| 65 6c 73 65 0d 09 09 09 | 72 65 74 75 72 6e 28 46 |else....|return(F|
|00003300| 41 4c 53 45 29 3b 0d 09 | 7d 0d 09 0d 09 65 6c 73 |ALSE);..|}....els|
|00003310| 65 0d 09 09 72 65 74 75 | 72 6e 28 46 41 4c 53 45 |e...retu|rn(FALSE|
|00003320| 29 3b 0d 7d 0d 0d 0d 0d | 53 61 76 65 54 65 78 74 |);.}....|SaveText|
|00003330| 46 69 6c 65 28 74 68 65 | 54 45 48 2c 6d 79 53 46 |File(the|TEH,mySF|
|00003340| 52 65 70 6c 79 29 0d 54 | 45 33 32 4b 48 61 6e 64 |Reply).T|E32KHand|
|00003350| 6c 65 09 74 68 65 54 45 | 48 3b 53 46 52 65 70 6c |le.theTE|H;SFRepl|
|00003360| 79 09 2a 6d 79 53 46 52 | 65 70 6c 79 3b 0d 7b 0d |y.*mySFR|eply;.{.|
|00003370| 50 6f 69 6e 74 09 09 74 | 68 65 54 6f 70 4c 65 66 |Point..t|heTopLef|
|00003380| 74 3b 0d 69 6e 74 09 09 | 09 65 72 72 43 6f 64 65 |t;.int..|.errCode|
|00003390| 2c 66 52 65 66 4e 75 6d | 3b 0d 6c 6f 6e 67 09 09 |,fRefNum|;.long..|
|000033a0| 62 79 74 65 43 6f 75 6e | 74 3b 0d 48 61 6e 64 6c |byteCoun|t;.Handl|
|000033b0| 65 09 09 74 68 65 54 65 | 78 74 3b 0d 0d 09 69 66 |e..theTe|xt;...if|
|000033c0| 20 28 74 68 65 54 45 48 | 29 0d 09 7b 0d 09 09 74 | (theTEH|)..{...t|
|000033d0| 68 65 54 6f 70 4c 65 66 | 74 2e 68 20 3d 20 73 63 |heTopLef|t.h = sc|
|000033e0| 72 65 65 6e 42 69 74 73 | 2e 62 6f 75 6e 64 73 2e |reenBits|.bounds.|
|000033f0| 6c 65 66 74 20 2b 20 28 | 73 63 72 65 65 6e 42 69 |left + (|screenBi|
|00003400| 74 73 2e 62 6f 75 6e 64 | 73 2e 72 69 67 68 74 20 |ts.bound|s.right |
|00003410| 2d 20 73 63 72 65 65 6e | 42 69 74 73 2e 62 6f 75 |- screen|Bits.bou|
|00003420| 6e 64 73 2e 6c 65 66 74 | 20 2d 20 33 30 34 29 2f |nds.left| - 304)/|
|00003430| 32 3b 3b 0d 09 09 74 68 | 65 54 6f 70 4c 65 66 74 |2;;...th|eTopLeft|
|00003440| 2e 76 20 3d 20 73 63 72 | 65 65 6e 42 69 74 73 2e |.v = scr|eenBits.|
|00003450| 62 6f 75 6e 64 73 2e 74 | 6f 70 20 2b 20 35 30 3b |bounds.t|op + 50;|
|00003460| 0d 09 09 0d 09 09 49 6e | 69 74 43 75 72 73 6f 72 |......In|itCursor|
|00003470| 28 29 3b 0d 09 09 0d 09 | 09 69 66 20 28 21 28 6d |();.....|.if (!(m|
|00003480| 79 53 46 52 65 70 6c 79 | 2d 3e 67 6f 6f 64 29 29 |ySFReply|->good))|
|00003490| 0d 09 09 09 53 46 50 75 | 74 46 69 6c 65 28 74 68 |....SFPu|tFile(th|
|000034a0| 65 54 6f 70 4c 65 66 74 | 2c 22 5c 70 53 61 76 65 |eTopLeft|,"\pSave|
|000034b0| 20 54 65 78 74 20 46 69 | 6c 65 20 41 73 3a 22 2c | Text Fi|le As:",|
|000034c0| 22 5c 70 22 2c 30 4c 2c | 6d 79 53 46 52 65 70 6c |"\p",0L,|mySFRepl|
|000034d0| 79 29 3b 0d 09 09 0d 09 | 09 69 66 20 28 6d 79 53 |y);.....|.if (myS|
|000034e0| 46 52 65 70 6c 79 2d 3e | 67 6f 6f 64 29 0d 09 09 |FReply->|good)...|
|000034f0| 7b 0d 09 09 09 69 66 20 | 28 28 65 72 72 43 6f 64 |{....if |((errCod|
|00003500| 65 20 3d 20 46 53 4f 70 | 65 6e 28 6d 79 53 46 52 |e = FSOp|en(mySFR|
|00003510| 65 70 6c 79 2d 3e 66 4e | 61 6d 65 2c 6d 79 53 46 |eply->fN|ame,mySF|
|00003520| 52 65 70 6c 79 2d 3e 76 | 52 65 66 4e 75 6d 2c 26 |Reply->v|RefNum,&|
|00003530| 66 52 65 66 4e 75 6d 29 | 29 21 3d 6e 6f 45 72 72 |fRefNum)|)!=noErr|
|00003540| 29 0d 09 09 09 7b 0d 09 | 09 09 09 69 66 20 28 65 |)....{..|...if (e|
|00003550| 72 72 43 6f 64 65 3d 3d | 66 6e 66 45 72 72 29 0d |rrCode==|fnfErr).|
|00003560| 09 09 09 09 7b 0d 09 09 | 09 09 09 69 66 20 28 28 |....{...|...if ((|
|00003570| 65 72 72 43 6f 64 65 20 | 3d 20 43 72 65 61 74 65 |errCode |= Create|
|00003580| 28 6d 79 53 46 52 65 70 | 6c 79 2d 3e 66 4e 61 6d |(mySFRep|ly->fNam|
|00003590| 65 2c 6d 79 53 46 52 65 | 70 6c 79 2d 3e 76 52 65 |e,mySFRe|ply->vRe|
|000035a0| 66 4e 75 6d 2c 27 3f 3f | 3f 3f 27 2c 27 54 45 58 |fNum,'??|??','TEX|
|000035b0| 54 27 29 29 21 3d 6e 6f | 45 72 72 29 0d 09 09 09 |T'))!=no|Err)....|
|000035c0| 09 09 7b 0d 09 09 09 09 | 09 09 6d 79 53 46 52 65 |..{.....|..mySFRe|
|000035d0| 70 6c 79 2d 3e 67 6f 6f | 64 20 3d 20 46 41 4c 53 |ply->goo|d = FALS|
|000035e0| 45 3b 0d 09 09 09 09 09 | 09 50 74 6f 43 73 74 72 |E;......|.PtoCstr|
|000035f0| 28 28 63 68 61 72 20 2a | 29 20 6d 79 53 46 52 65 |((char *|) mySFRe|
|00003600| 70 6c 79 2d 3e 66 4e 61 | 6d 65 29 3b 0d 09 09 09 |ply->fNa|me);....|
|00003610| 09 09 09 73 70 72 69 6e | 74 66 28 74 65 6d 70 53 |...sprin|tf(tempS|
|00003620| 74 72 69 6e 67 2c 22 53 | 61 76 65 54 65 78 74 46 |tring,"S|aveTextF|
|00003630| 69 6c 65 3a 20 43 72 65 | 61 74 65 28 27 25 73 27 |ile: Cre|ate('%s'|
|00003640| 29 20 45 72 72 6f 72 20 | 25 64 22 2c 6d 79 53 46 |) Error |%d",mySF|
|00003650| 52 65 70 6c 79 2d 3e 66 | 4e 61 6d 65 2c 65 72 72 |Reply->f|Name,err|
|00003660| 43 6f 64 65 29 3b 0d 09 | 09 09 09 09 09 45 72 72 |Code);..|.....Err|
|00003670| 6f 72 41 6c 65 72 74 28 | 74 65 6d 70 53 74 72 69 |orAlert(|tempStri|
|00003680| 6e 67 29 3b 0d 09 09 09 | 09 09 09 72 65 74 75 72 |ng);....|...retur|
|00003690| 6e 28 46 41 4c 53 45 29 | 3b 0d 09 09 09 09 09 7d |n(FALSE)|;......}|
|000036a0| 0d 09 09 09 09 09 0d 09 | 09 09 09 09 65 72 72 43 |........|....errC|
|000036b0| 6f 64 65 20 3d 20 46 53 | 4f 70 65 6e 28 6d 79 53 |ode = FS|Open(myS|
|000036c0| 46 52 65 70 6c 79 2d 3e | 66 4e 61 6d 65 2c 6d 79 |FReply->|fName,my|
|000036d0| 53 46 52 65 70 6c 79 2d | 3e 76 52 65 66 4e 75 6d |SFReply-|>vRefNum|
|000036e0| 2c 26 66 52 65 66 4e 75 | 6d 29 3b 0d 09 09 09 09 |,&fRefNu|m);.....|
|000036f0| 7d 0d 09 09 09 09 0d 09 | 09 09 09 69 66 20 28 65 |}.......|...if (e|
|00003700| 72 72 43 6f 64 65 20 21 | 3d 20 6e 6f 45 72 72 29 |rrCode !|= noErr)|
|00003710| 0d 09 09 09 09 7b 0d 09 | 09 09 09 09 6d 79 53 46 |.....{..|....mySF|
|00003720| 52 65 70 6c 79 2d 3e 67 | 6f 6f 64 20 3d 20 46 41 |Reply->g|ood = FA|
|00003730| 4c 53 45 3b 0d 09 09 09 | 09 09 50 74 6f 43 73 74 |LSE;....|..PtoCst|
|00003740| 72 28 28 63 68 61 72 20 | 2a 29 20 6d 79 53 46 52 |r((char |*) mySFR|
|00003750| 65 70 6c 79 2d 3e 66 4e | 61 6d 65 29 3b 0d 09 09 |eply->fN|ame);...|
|00003760| 09 09 09 73 70 72 69 6e | 74 66 28 74 65 6d 70 53 |...sprin|tf(tempS|
|00003770| 74 72 69 6e 67 2c 22 53 | 61 76 65 54 65 78 74 46 |tring,"S|aveTextF|
|00003780| 69 6c 65 3a 20 46 53 4f | 70 65 6e 28 27 25 73 27 |ile: FSO|pen('%s'|
|00003790| 29 20 45 72 72 6f 72 20 | 25 64 22 2c 6d 79 53 46 |) Error |%d",mySF|
|000037a0| 52 65 70 6c 79 2d 3e 66 | 4e 61 6d 65 2c 65 72 72 |Reply->f|Name,err|
|000037b0| 43 6f 64 65 29 3b 0d 09 | 09 09 09 09 45 72 72 6f |Code);..|....Erro|
|000037c0| 72 41 6c 65 72 74 28 74 | 65 6d 70 53 74 72 69 6e |rAlert(t|empStrin|
|000037d0| 67 29 3b 0d 09 09 09 09 | 09 72 65 74 75 72 6e 28 |g);.....|.return(|
|000037e0| 46 41 4c 53 45 29 3b 0d | 09 09 09 09 7d 0d 09 09 |FALSE);.|....}...|
|000037f0| 09 7d 0d 09 09 09 0d 09 | 09 09 69 66 20 28 28 65 |.}......|..if ((e|
|00003800| 72 72 43 6f 64 65 20 3d | 20 53 65 74 45 4f 46 28 |rrCode =| SetEOF(|
|00003810| 66 52 65 66 4e 75 6d 2c | 30 4c 29 29 21 3d 6e 6f |fRefNum,|0L))!=no|
|00003820| 45 72 72 29 0d 09 09 09 | 7b 0d 09 09 09 09 6d 79 |Err)....|{.....my|
|00003830| 53 46 52 65 70 6c 79 2d | 3e 67 6f 6f 64 20 3d 20 |SFReply-|>good = |
|00003840| 46 41 4c 53 45 3b 0d 09 | 09 09 09 46 53 43 6c 6f |FALSE;..|...FSClo|
|00003850| 73 65 28 66 52 65 66 4e | 75 6d 29 3b 0d 09 09 09 |se(fRefN|um);....|
|00003860| 09 50 74 6f 43 73 74 72 | 28 28 63 68 61 72 20 2a |.PtoCstr|((char *|
|00003870| 29 20 6d 79 53 46 52 65 | 70 6c 79 2d 3e 66 4e 61 |) mySFRe|ply->fNa|
|00003880| 6d 65 29 3b 0d 09 09 09 | 09 73 70 72 69 6e 74 66 |me);....|.sprintf|
|00003890| 28 74 65 6d 70 53 74 72 | 69 6e 67 2c 22 53 61 76 |(tempStr|ing,"Sav|
|000038a0| 65 54 65 78 74 46 69 6c | 65 3a 20 53 65 74 45 4f |eTextFil|e: SetEO|
|000038b0| 46 28 27 25 73 27 2c 30 | 29 20 45 72 72 6f 72 20 |F('%s',0|) Error |
|000038c0| 25 64 22 2c 6d 79 53 46 | 52 65 70 6c 79 2d 3e 66 |%d",mySF|Reply->f|
|000038d0| 4e 61 6d 65 2c 65 72 72 | 43 6f 64 65 29 3b 0d 09 |Name,err|Code);..|
|000038e0| 09 09 09 45 72 72 6f 72 | 41 6c 65 72 74 28 74 65 |...Error|Alert(te|
|000038f0| 6d 70 53 74 72 69 6e 67 | 29 3b 0d 09 09 09 09 72 |mpString|);.....r|
|00003900| 65 74 75 72 6e 28 46 41 | 4c 53 45 29 3b 0d 09 09 |eturn(FA|LSE);...|
|00003910| 09 7d 0d 09 09 09 0d 09 | 09 09 69 66 20 28 28 65 |.}......|..if ((e|
|00003920| 72 72 43 6f 64 65 20 3d | 20 53 65 74 46 50 6f 73 |rrCode =| SetFPos|
|00003930| 28 66 52 65 66 4e 75 6d | 2c 66 73 46 72 6f 6d 53 |(fRefNum|,fsFromS|
|00003940| 74 61 72 74 2c 30 4c 29 | 29 21 3d 6e 6f 45 72 72 |tart,0L)|)!=noErr|
|00003950| 29 0d 09 09 09 7b 0d 09 | 09 09 09 6d 79 53 46 52 |)....{..|...mySFR|
|00003960| 65 70 6c 79 2d 3e 67 6f | 6f 64 20 3d 20 46 41 4c |eply->go|od = FAL|
|00003970| 53 45 3b 0d 09 09 09 09 | 46 53 43 6c 6f 73 65 28 |SE;.....|FSClose(|
|00003980| 66 52 65 66 4e 75 6d 29 | 3b 0d 09 09 09 09 50 74 |fRefNum)|;.....Pt|
|00003990| 6f 43 73 74 72 28 28 63 | 68 61 72 20 2a 29 20 6d |oCstr((c|har *) m|
|000039a0| 79 53 46 52 65 70 6c 79 | 2d 3e 66 4e 61 6d 65 29 |ySFReply|->fName)|
|000039b0| 3b 0d 09 09 09 09 73 70 | 72 69 6e 74 66 28 74 65 |;.....sp|rintf(te|
|000039c0| 6d 70 53 74 72 69 6e 67 | 2c 22 53 61 76 65 54 65 |mpString|,"SaveTe|
|000039d0| 78 74 46 69 6c 65 3a 20 | 53 65 74 46 50 6f 73 28 |xtFile: |SetFPos(|
|000039e0| 27 25 73 27 2c 30 29 20 | 45 72 72 6f 72 20 25 64 |'%s',0) |Error %d|
|000039f0| 22 2c 6d 79 53 46 52 65 | 70 6c 79 2d 3e 66 4e 61 |",mySFRe|ply->fNa|
|00003a00| 6d 65 2c 65 72 72 43 6f | 64 65 29 3b 0d 09 09 09 |me,errCo|de);....|
|00003a10| 09 45 72 72 6f 72 41 6c | 65 72 74 28 74 65 6d 70 |.ErrorAl|ert(temp|
|00003a20| 53 74 72 69 6e 67 29 3b | 0d 09 09 09 09 72 65 74 |String);|.....ret|
|00003a30| 75 72 6e 28 46 41 4c 53 | 45 29 3b 0d 09 09 09 7d |urn(FALS|E);....}|
|00003a40| 0d 09 09 09 0d 09 09 09 | 74 68 65 54 65 78 74 20 |........|theText |
|00003a50| 3d 20 28 2a 2a 74 68 65 | 54 45 48 29 2e 68 54 65 |= (**the|TEH).hTe|
|00003a60| 78 74 3b 0d 09 09 09 62 | 79 74 65 43 6f 75 6e 74 |xt;....b|yteCount|
|00003a70| 20 3d 20 28 2a 2a 74 68 | 65 54 45 48 29 2e 74 65 | = (**th|eTEH).te|
|00003a80| 4c 65 6e 67 74 68 3b 0d | 09 09 09 0d 09 09 09 48 |Length;.|.......H|
|00003a90| 4c 6f 63 6b 28 74 68 65 | 54 65 78 74 29 3b 0d 09 |Lock(the|Text);..|
|00003aa0| 09 09 0d 09 09 09 53 65 | 74 43 75 72 73 6f 72 28 |......Se|tCursor(|
|00003ab0| 26 77 61 69 74 43 75 72 | 73 6f 72 29 3b 0d 09 09 |&waitCur|sor);...|
|00003ac0| 09 0d 09 09 09 69 66 20 | 28 28 65 72 72 43 6f 64 |.....if |((errCod|
|00003ad0| 65 20 3d 20 46 53 57 72 | 69 74 65 28 66 52 65 66 |e = FSWr|ite(fRef|
|00003ae0| 4e 75 6d 2c 26 62 79 74 | 65 43 6f 75 6e 74 2c 2a |Num,&byt|eCount,*|
|00003af0| 74 68 65 54 65 78 74 29 | 29 21 3d 6e 6f 45 72 72 |theText)|)!=noErr|
|00003b00| 29 0d 09 09 09 7b 0d 09 | 09 09 09 49 6e 69 74 43 |)....{..|...InitC|
|00003b10| 75 72 73 6f 72 28 29 3b | 0d 09 09 09 09 6d 79 53 |ursor();|.....myS|
|00003b20| 46 52 65 70 6c 79 2d 3e | 67 6f 6f 64 20 3d 20 46 |FReply->|good = F|
|00003b30| 41 4c 53 45 3b 0d 09 09 | 09 09 48 55 6e 6c 6f 63 |ALSE;...|..HUnloc|
|00003b40| 6b 28 74 68 65 54 65 78 | 74 29 3b 0d 09 09 09 09 |k(theTex|t);.....|
|00003b50| 46 53 43 6c 6f 73 65 28 | 66 52 65 66 4e 75 6d 29 |FSClose(|fRefNum)|
|00003b60| 3b 0d 09 09 09 09 50 74 | 6f 43 73 74 72 28 28 63 |;.....Pt|oCstr((c|
|00003b70| 68 61 72 20 2a 29 20 6d | 79 53 46 52 65 70 6c 79 |har *) m|ySFReply|
|00003b80| 2d 3e 66 4e 61 6d 65 29 | 3b 0d 09 09 09 09 73 70 |->fName)|;.....sp|
|00003b90| 72 69 6e 74 66 28 74 65 | 6d 70 53 74 72 69 6e 67 |rintf(te|mpString|
|00003ba0| 2c 22 53 61 76 65 54 65 | 78 74 46 69 6c 65 3a 20 |,"SaveTe|xtFile: |
|00003bb0| 46 53 57 72 69 74 65 28 | 27 25 73 27 29 20 45 72 |FSWrite(|'%s') Er|
|00003bc0| 72 6f 72 20 25 64 22 2c | 6d 79 53 46 52 65 70 6c |ror %d",|mySFRepl|
|00003bd0| 79 2d 3e 66 4e 61 6d 65 | 2c 65 72 72 43 6f 64 65 |y->fName|,errCode|
|00003be0| 29 3b 0d 09 09 09 09 45 | 72 72 6f 72 41 6c 65 72 |);.....E|rrorAler|
|00003bf0| 74 28 74 65 6d 70 53 74 | 72 69 6e 67 29 3b 0d 09 |t(tempSt|ring);..|
|00003c00| 09 09 09 72 65 74 75 72 | 6e 28 46 41 4c 53 45 29 |...retur|n(FALSE)|
|00003c10| 3b 0d 09 09 09 7d 0d 09 | 09 09 0d 09 09 09 48 55 |;....}..|......HU|
|00003c20| 6e 6c 6f 63 6b 28 74 68 | 65 54 65 78 74 29 3b 0d |nlock(th|eText);.|
|00003c30| 09 09 09 0d 09 09 09 69 | 66 20 28 28 65 72 72 43 |.......i|f ((errC|
|00003c40| 6f 64 65 20 3d 20 46 53 | 43 6c 6f 73 65 28 66 52 |ode = FS|Close(fR|
|00003c50| 65 66 4e 75 6d 29 29 21 | 3d 6e 6f 45 72 72 29 0d |efNum))!|=noErr).|
|00003c60| 09 09 09 7b 0d 09 09 09 | 09 49 6e 69 74 43 75 72 |...{....|.InitCur|
|00003c70| 73 6f 72 28 29 3b 0d 09 | 09 09 09 6d 79 53 46 52 |sor();..|...mySFR|
|00003c80| 65 70 6c 79 2d 3e 67 6f | 6f 64 20 3d 20 46 41 4c |eply->go|od = FAL|
|00003c90| 53 45 3b 0d 09 09 09 09 | 50 74 6f 43 73 74 72 28 |SE;.....|PtoCstr(|
|00003ca0| 28 63 68 61 72 20 2a 29 | 20 6d 79 53 46 52 65 70 |(char *)| mySFRep|
|00003cb0| 6c 79 2d 3e 66 4e 61 6d | 65 29 3b 0d 09 09 09 09 |ly->fNam|e);.....|
|00003cc0| 73 70 72 69 6e 74 66 28 | 74 65 6d 70 53 74 72 69 |sprintf(|tempStri|
|00003cd0| 6e 67 2c 22 53 61 76 65 | 54 65 78 74 46 69 6c 65 |ng,"Save|TextFile|
|00003ce0| 3a 20 46 53 43 6c 6f 73 | 65 28 27 25 73 27 2c 30 |: FSClos|e('%s',0|
|00003cf0| 29 20 45 72 72 6f 72 20 | 25 64 22 2c 6d 79 53 46 |) Error |%d",mySF|
|00003d00| 52 65 70 6c 79 2d 3e 66 | 4e 61 6d 65 2c 65 72 72 |Reply->f|Name,err|
|00003d10| 43 6f 64 65 29 3b 0d 09 | 09 09 09 45 72 72 6f 72 |Code);..|...Error|
|00003d20| 41 6c 65 72 74 28 74 65 | 6d 70 53 74 72 69 6e 67 |Alert(te|mpString|
|00003d30| 29 3b 0d 09 09 09 09 72 | 65 74 75 72 6e 28 46 41 |);.....r|eturn(FA|
|00003d40| 4c 53 45 29 3b 0d 09 09 | 09 7d 0d 09 09 09 0d 09 |LSE);...|.}......|
|00003d50| 09 09 46 6c 75 73 68 56 | 6f 6c 28 22 5c 70 22 2c |..FlushV|ol("\p",|
|00003d60| 6d 79 53 46 52 65 70 6c | 79 2d 3e 76 52 65 66 4e |mySFRepl|y->vRefN|
|00003d70| 75 6d 29 3b 0d 09 09 09 | 0d 09 09 09 49 6e 69 74 |um);....|....Init|
|00003d80| 43 75 72 73 6f 72 28 29 | 3b 0d 09 09 09 0d 09 09 |Cursor()|;.......|
|00003d90| 09 72 65 74 75 72 6e 28 | 54 52 55 45 29 3b 0d 09 |.return(|TRUE);..|
|00003da0| 09 7d 0d 09 09 0d 09 09 | 65 6c 73 65 0d 09 09 09 |.}......|else....|
|00003db0| 72 65 74 75 72 6e 28 46 | 41 4c 53 45 29 3b 0d 09 |return(F|ALSE);..|
|00003dc0| 7d 0d 09 0d 09 65 6c 73 | 65 0d 09 09 72 65 74 75 |}....els|e...retu|
|00003dd0| 72 6e 28 46 41 4c 53 45 | 29 3b 0d 7d 0d 0d 0d 0d |rn(FALSE|);.}....|
|00003de0| 0d 59 65 73 4e 6f 43 61 | 6e 63 65 6c 28 74 68 65 |.YesNoCa|ncel(the|
|00003df0| 50 72 6f 6d 70 74 2c 74 | 68 65 44 65 66 61 75 6c |Prompt,t|heDefaul|
|00003e00| 74 29 0d 63 68 61 72 09 | 2a 74 68 65 50 72 6f 6d |t).char.|*theProm|
|00003e10| 70 74 3b 69 6e 74 09 74 | 68 65 44 65 66 61 75 6c |pt;int.t|heDefaul|
|00003e20| 74 3b 0d 7b 0d 44 69 61 | 6c 6f 67 50 74 72 09 09 |t;.{.Dia|logPtr..|
|00003e30| 74 68 65 44 50 74 72 2c | 74 65 6d 70 44 50 74 72 |theDPtr,|tempDPtr|
|00003e40| 3b 0d 69 6e 74 09 09 09 | 09 69 74 65 6d 48 69 74 |;.int...|.itemHit|
|00003e50| 2c 20 74 79 70 65 3b 0d | 48 61 6e 64 6c 65 09 09 |, type;.|Handle..|
|00003e60| 09 74 68 65 49 74 65 6d | 3b 0d 52 65 63 74 09 09 |.theItem|;.Rect..|
|00003e70| 09 74 65 6d 70 52 65 63 | 74 3b 0d 47 72 61 66 50 |.tempRec|t;.GrafP|
|00003e80| 74 72 09 09 09 6f 6c 64 | 50 6f 72 74 3b 0d 63 68 |tr...old|Port;.ch|
|00003e90| 61 72 09 09 09 74 65 6d | 70 53 74 72 69 6e 67 5b |ar...tem|pString[|
|00003ea0| 32 35 36 5d 3b 0d 45 76 | 65 6e 74 52 65 63 6f 72 |256];.Ev|entRecor|
|00003eb0| 64 09 09 74 68 65 45 76 | 65 6e 74 3b 0d 0d 09 47 |d..theEv|ent;...G|
|00003ec0| 65 74 50 6f 72 74 28 26 | 6f 6c 64 50 6f 72 74 29 |etPort(&|oldPort)|
|00003ed0| 3b 0d 09 0d 09 49 6e 69 | 74 43 75 72 73 6f 72 28 |;....Ini|tCursor(|
|00003ee0| 29 3b 0d 09 0d 09 74 68 | 65 44 50 74 72 20 3d 20 |);....th|eDPtr = |
|00003ef0| 47 65 74 4e 65 77 44 69 | 61 6c 6f 67 28 79 65 73 |GetNewDi|alog(yes|
|00003f00| 4e 6f 43 61 6e 63 65 6c | 44 4c 4f 47 2c 20 30 4c |NoCancel|DLOG, 0L|
|00003f10| 2c 28 57 69 6e 64 6f 77 | 50 74 72 29 20 2d 31 4c |,(Window|Ptr) -1L|
|00003f20| 29 3b 0d 09 0d 09 43 65 | 6e 74 65 72 57 69 6e 64 |);....Ce|nterWind|
|00003f30| 6f 77 28 74 68 65 44 50 | 74 72 29 3b 0d 09 53 68 |ow(theDP|tr);..Sh|
|00003f40| 6f 77 57 69 6e 64 6f 77 | 28 74 68 65 44 50 74 72 |owWindow|(theDPtr|
|00003f50| 29 3b 0d 09 0d 09 53 65 | 74 50 6f 72 74 28 74 68 |);....Se|tPort(th|
|00003f60| 65 44 50 74 72 29 3b 0d | 09 0d 09 28 28 44 69 61 |eDPtr);.|...((Dia|
|00003f70| 6c 6f 67 50 65 65 6b 29 | 20 74 68 65 44 50 74 72 |logPeek)| theDPtr|
|00003f80| 29 2d 3e 61 44 65 66 49 | 74 65 6d 20 3d 20 74 68 |)->aDefI|tem = th|
|00003f90| 65 44 65 66 61 75 6c 74 | 3b 0d 09 0d 09 47 65 74 |eDefault|;....Get|
|00003fa0| 44 49 74 65 6d 28 74 68 | 65 44 50 74 72 2c 20 34 |DItem(th|eDPtr, 4|
|00003fb0| 2c 20 26 74 79 70 65 2c | 20 26 74 68 65 49 74 65 |, &type,| &theIte|
|00003fc0| 6d 2c 20 26 74 65 6d 70 | 52 65 63 74 29 3b 0d 09 |m, &temp|Rect);..|
|00003fd0| 53 65 74 44 49 74 65 6d | 28 74 68 65 44 50 74 72 |SetDItem|(theDPtr|
|00003fe0| 2c 20 34 2c 20 74 79 70 | 65 2c 20 48 69 6c 69 74 |, 4, typ|e, Hilit|
|00003ff0| 65 44 65 66 61 75 6c 74 | 42 75 74 74 6f 6e 2c 20 |eDefault|Button, |
|00004000| 26 74 65 6d 70 52 65 63 | 74 29 3b 0d 09 0d 09 73 |&tempRec|t);....s|
|00004010| 74 72 63 70 79 28 74 65 | 6d 70 53 74 72 69 6e 67 |trcpy(te|mpString|
|00004020| 2c 74 68 65 50 72 6f 6d | 70 74 29 3b 0d 09 43 74 |,theProm|pt);..Ct|
|00004030| 6f 50 73 74 72 28 74 65 | 6d 70 53 74 72 69 6e 67 |oPstr(te|mpString|
|00004040| 29 3b 0d 09 47 65 74 44 | 49 74 65 6d 28 74 68 65 |);..GetD|Item(the|
|00004050| 44 50 74 72 2c 20 35 2c | 20 26 74 79 70 65 2c 20 |DPtr, 5,| &type, |
|00004060| 26 74 68 65 49 74 65 6d | 2c 20 26 74 65 6d 70 52 |&theItem|, &tempR|
|00004070| 65 63 74 29 3b 0d 09 53 | 65 74 49 54 65 78 74 28 |ect);..S|etIText(|
|00004080| 74 68 65 49 74 65 6d 2c | 20 74 65 6d 70 53 74 72 |theItem,| tempStr|
|00004090| 69 6e 67 29 3b 0d 09 0d | 09 69 66 20 28 47 65 74 |ing);...|.if (Get|
|000040a0| 4e 65 78 74 45 76 65 6e | 74 28 75 70 64 61 74 65 |NextEven|t(update|
|000040b0| 4d 61 73 6b 2c 26 74 68 | 65 45 76 65 6e 74 29 20 |Mask,&th|eEvent) |
|000040c0| 26 26 20 74 68 65 45 76 | 65 6e 74 2e 6d 65 73 73 |&& theEv|ent.mess|
|000040d0| 61 67 65 20 3d 3d 20 28 | 6c 6f 6e 67 29 20 74 68 |age == (|long) th|
|000040e0| 65 44 50 74 72 29 0d 09 | 09 44 69 61 6c 6f 67 53 |eDPtr)..|.DialogS|
|000040f0| 65 6c 65 63 74 28 26 74 | 68 65 45 76 65 6e 74 2c |elect(&t|heEvent,|
|00004100| 26 74 65 6d 70 44 50 74 | 72 2c 26 69 74 65 6d 48 |&tempDPt|r,&itemH|
|00004110| 69 74 29 3b 0d 09 0d 09 | 53 79 73 42 65 65 70 28 |it);....|SysBeep(|
|00004120| 31 29 3b 0d 09 0d 09 64 | 6f 20 0d 09 7b 0d 09 09 |1);....d|o ..{...|
|00004130| 4d 6f 64 61 6c 44 69 61 | 6c 6f 67 28 30 4c 2c 26 |ModalDia|log(0L,&|
|00004140| 69 74 65 6d 48 69 74 29 | 3b 0d 09 09 0d 09 7d 20 |itemHit)|;.....} |
|00004150| 77 68 69 6c 65 20 28 21 | 28 69 74 65 6d 48 69 74 |while (!|(itemHit|
|00004160| 3e 3d 31 20 26 26 20 69 | 74 65 6d 48 69 74 3c 3d |>=1 && i|temHit<=|
|00004170| 33 29 29 3b 0d 09 0d 09 | 44 69 73 70 6f 73 44 69 |3));....|DisposDi|
|00004180| 61 6c 6f 67 28 74 68 65 | 44 50 74 72 29 3b 0d 09 |alog(the|DPtr);..|
|00004190| 53 65 74 50 6f 72 74 28 | 6f 6c 64 50 6f 72 74 29 |SetPort(|oldPort)|
|000041a0| 3b 0d 09 0d 09 72 65 74 | 75 72 6e 28 69 74 65 6d |;....ret|urn(item|
|000041b0| 48 69 74 29 3b 0d 7d 0d | 0d 0d 0d 0d 43 65 6e 74 |Hit);.}.|....Cent|
|000041c0| 65 72 57 69 6e 64 6f 77 | 28 77 50 74 72 29 0d 57 |erWindow|(wPtr).W|
|000041d0| 69 6e 64 6f 77 50 74 72 | 09 77 50 74 72 3b 0d 7b |indowPtr|.wPtr;.{|
|000041e0| 0d 69 6e 74 09 09 73 63 | 72 65 65 6e 57 69 64 74 |.int..sc|reenWidt|
|000041f0| 68 2c 73 63 72 65 65 6e | 48 65 69 67 68 74 2c 77 |h,screen|Height,w|
|00004200| 69 6e 64 6f 77 57 69 64 | 74 68 2c 77 69 6e 64 6f |indowWid|th,windo|
|00004210| 77 48 65 69 67 68 74 2c | 6c 65 66 74 2c 74 6f 70 |wHeight,|left,top|
|00004220| 3b 0d 0d 09 69 66 20 28 | 77 50 74 72 20 3d 3d 20 |;...if (|wPtr == |
|00004230| 30 4c 29 0d 09 09 72 65 | 74 75 72 6e 3b 0d 09 0d |0L)...re|turn;...|
|00004240| 09 73 63 72 65 65 6e 57 | 69 64 74 68 20 3d 20 73 |.screenW|idth = s|
|00004250| 63 72 65 65 6e 42 69 74 | 73 2e 62 6f 75 6e 64 73 |creenBit|s.bounds|
|00004260| 2e 72 69 67 68 74 20 2d | 20 73 63 72 65 65 6e 42 |.right -| screenB|
|00004270| 69 74 73 2e 62 6f 75 6e | 64 73 2e 6c 65 66 74 3b |its.boun|ds.left;|
|00004280| 0d 09 73 63 72 65 65 6e | 48 65 69 67 68 74 20 3d |..screen|Height =|
|00004290| 20 73 63 72 65 65 6e 42 | 69 74 73 2e 62 6f 75 6e | screenB|its.boun|
|000042a0| 64 73 2e 62 6f 74 74 6f | 6d 20 2d 20 73 63 72 65 |ds.botto|m - scre|
|000042b0| 65 6e 42 69 74 73 2e 62 | 6f 75 6e 64 73 2e 74 6f |enBits.b|ounds.to|
|000042c0| 70 20 2d 20 32 30 3b 0d | 09 77 69 6e 64 6f 77 57 |p - 20;.|.windowW|
|000042d0| 69 64 74 68 20 3d 20 77 | 50 74 72 2d 3e 70 6f 72 |idth = w|Ptr->por|
|000042e0| 74 52 65 63 74 2e 72 69 | 67 68 74 20 2d 20 77 50 |tRect.ri|ght - wP|
|000042f0| 74 72 2d 3e 70 6f 72 74 | 52 65 63 74 2e 6c 65 66 |tr->port|Rect.lef|
|00004300| 74 3b 0d 09 77 69 6e 64 | 6f 77 48 65 69 67 68 74 |t;..wind|owHeight|
|00004310| 20 3d 20 77 50 74 72 2d | 3e 70 6f 72 74 52 65 63 | = wPtr-|>portRec|
|00004320| 74 2e 62 6f 74 74 6f 6d | 20 2d 20 77 50 74 72 2d |t.bottom| - wPtr-|
|00004330| 3e 70 6f 72 74 52 65 63 | 74 2e 74 6f 70 3b 0d 09 |>portRec|t.top;..|
|00004340| 0d 09 6c 65 66 74 20 3d | 20 73 63 72 65 65 6e 42 |..left =| screenB|
|00004350| 69 74 73 2e 62 6f 75 6e | 64 73 2e 6c 65 66 74 20 |its.boun|ds.left |
|00004360| 2b 20 28 73 63 72 65 65 | 6e 57 69 64 74 68 20 2d |+ (scree|nWidth -|
|00004370| 20 77 69 6e 64 6f 77 57 | 69 64 74 68 29 2f 32 3b | windowW|idth)/2;|
|00004380| 0d 09 74 6f 70 20 3d 20 | 73 63 72 65 65 6e 42 69 |..top = |screenBi|
|00004390| 74 73 2e 62 6f 75 6e 64 | 73 2e 74 6f 70 20 2b 20 |ts.bound|s.top + |
|000043a0| 32 30 20 2b 20 28 73 63 | 72 65 65 6e 48 65 69 67 |20 + (sc|reenHeig|
|000043b0| 68 74 20 2d 20 77 69 6e | 64 6f 77 48 65 69 67 68 |ht - win|dowHeigh|
|000043c0| 74 29 2f 32 3b 0d 09 0d | 09 69 66 20 28 6c 65 66 |t)/2;...|.if (lef|
|000043d0| 74 20 3c 20 30 29 0d 09 | 09 6c 65 66 74 20 3d 20 |t < 0)..|.left = |
|000043e0| 30 3b 0d 09 0d 09 69 66 | 20 28 74 6f 70 20 3c 20 |0;....if| (top < |
|000043f0| 32 30 29 0d 09 09 74 6f | 70 20 3d 20 32 30 3b 0d |20)...to|p = 20;.|
|00004400| 09 0d 09 4d 6f 76 65 57 | 69 6e 64 6f 77 28 77 50 |...MoveW|indow(wP|
|00004410| 74 72 2c 6c 65 66 74 2c | 74 6f 70 2c 46 41 4c 53 |tr,left,|top,FALS|
|00004420| 45 29 3b 0d 7d 0d 0d 0d | 0d 0d 49 6e 73 65 72 74 |E);.}...|..Insert|
|00004430| 54 65 78 74 46 69 6c 65 | 28 74 68 65 54 45 48 29 |TextFile|(theTEH)|
|00004440| 0d 54 45 33 32 4b 48 61 | 6e 64 6c 65 09 74 68 65 |.TE32KHa|ndle.the|
|00004450| 54 45 48 3b 0d 7b 0d 53 | 46 52 65 70 6c 79 09 09 |TEH;.{.S|FReply..|
|00004460| 6d 79 53 46 52 65 70 6c | 79 3b 0d 53 46 54 79 70 |mySFRepl|y;.SFTyp|
|00004470| 65 4c 69 73 74 09 6d 79 | 53 46 54 79 70 65 73 3b |eList.my|SFTypes;|
|00004480| 0d 50 6f 69 6e 74 09 09 | 74 68 65 54 6f 70 4c 65 |.Point..|theTopLe|
|00004490| 66 74 3b 0d 69 6e 74 09 | 09 09 65 72 72 43 6f 64 |ft;.int.|..errCod|
|000044a0| 65 2c 66 52 65 66 4e 75 | 6d 3b 0d 6c 6f 6e 67 09 |e,fRefNu|m;.long.|
|000044b0| 09 62 79 74 65 43 6f 75 | 6e 74 3b 0d 50 74 72 09 |.byteCou|nt;.Ptr.|
|000044c0| 09 09 74 68 65 54 65 78 | 74 3b 0d 63 68 61 72 09 |..theTex|t;.char.|
|000044d0| 09 74 65 6d 70 53 74 72 | 69 6e 67 5b 32 35 36 5d |.tempStr|ing[256]|
|000044e0| 3b 0d 0d 09 69 66 20 28 | 74 68 65 54 45 48 29 0d |;...if (|theTEH).|
|000044f0| 09 7b 0d 09 09 74 68 65 | 54 6f 70 4c 65 66 74 2e |.{...the|TopLeft.|
|00004500| 68 20 3d 20 73 63 72 65 | 65 6e 42 69 74 73 2e 62 |h = scre|enBits.b|
|00004510| 6f 75 6e 64 73 2e 6c 65 | 66 74 20 2b 20 28 73 63 |ounds.le|ft + (sc|
|00004520| 72 65 65 6e 42 69 74 73 | 2e 62 6f 75 6e 64 73 2e |reenBits|.bounds.|
|00004530| 72 69 67 68 74 20 2d 20 | 73 63 72 65 65 6e 42 69 |right - |screenBi|
|00004540| 74 73 2e 62 6f 75 6e 64 | 73 2e 6c 65 66 74 20 2d |ts.bound|s.left -|
|00004550| 20 33 34 38 29 2f 32 3b | 3b 0d 09 09 74 68 65 54 | 348)/2;|;...theT|
|00004560| 6f 70 4c 65 66 74 2e 76 | 20 3d 20 73 63 72 65 65 |opLeft.v| = scree|
|00004570| 6e 42 69 74 73 2e 62 6f | 75 6e 64 73 2e 74 6f 70 |nBits.bo|unds.top|
|00004580| 20 2b 20 35 30 3b 0d 09 | 09 0d 09 09 6d 79 53 46 | + 50;..|....mySF|
|00004590| 54 79 70 65 73 5b 30 5d | 20 3d 20 27 54 45 58 54 |Types[0]| = 'TEXT|
|000045a0| 27 3b 0d 09 09 0d 09 09 | 49 6e 69 74 43 75 72 73 |';......|InitCurs|
|000045b0| 6f 72 28 29 3b 0d 09 09 | 0d 09 09 53 46 47 65 74 |or();...|...SFGet|
|000045c0| 46 69 6c 65 28 74 68 65 | 54 6f 70 4c 65 66 74 2c |File(the|TopLeft,|
|000045d0| 22 5c 53 65 6c 65 63 74 | 20 54 65 78 74 20 46 69 |"\Select| Text Fi|
|000045e0| 6c 65 20 54 6f 20 49 6e | 73 65 72 74 3a 22 2c 30 |le To In|sert:",0|
|000045f0| 4c 2c 31 2c 26 6d 79 53 | 46 54 79 70 65 73 2c 30 |L,1,&myS|FTypes,0|
|00004600| 4c 2c 26 6d 79 53 46 52 | 65 70 6c 79 29 3b 0d 09 |L,&mySFR|eply);..|
|00004610| 09 0d 09 09 69 66 20 28 | 6d 79 53 46 52 65 70 6c |....if (|mySFRepl|
|00004620| 79 2e 67 6f 6f 64 29 0d | 09 09 7b 0d 09 09 09 69 |y.good).|..{....i|
|00004630| 66 20 28 28 65 72 72 43 | 6f 64 65 20 3d 20 46 53 |f ((errC|ode = FS|
|00004640| 4f 70 65 6e 28 6d 79 53 | 46 52 65 70 6c 79 2e 66 |Open(myS|FReply.f|
|00004650| 4e 61 6d 65 2c 6d 79 53 | 46 52 65 70 6c 79 2e 76 |Name,myS|FReply.v|
|00004660| 52 65 66 4e 75 6d 2c 26 | 66 52 65 66 4e 75 6d 29 |RefNum,&|fRefNum)|
|00004670| 29 21 3d 6e 6f 45 72 72 | 29 0d 09 09 09 7b 0d 09 |)!=noErr|)....{..|
|00004680| 09 09 09 50 74 6f 43 73 | 74 72 28 28 63 68 61 72 |...PtoCs|tr((char|
|00004690| 20 2a 29 20 6d 79 53 46 | 52 65 70 6c 79 2e 66 4e | *) mySF|Reply.fN|
|000046a0| 61 6d 65 29 3b 0d 09 09 | 09 09 73 70 72 69 6e 74 |ame);...|..sprint|
|000046b0| 66 28 74 65 6d 70 53 74 | 72 69 6e 67 2c 22 49 6e |f(tempSt|ring,"In|
|000046c0| 73 65 72 74 54 65 78 74 | 46 69 6c 65 3a 20 46 53 |sertText|File: FS|
|000046d0| 4f 70 65 6e 28 27 25 73 | 27 29 20 45 72 72 6f 72 |Open('%s|') Error|
|000046e0| 20 25 64 22 2c 6d 79 53 | 46 52 65 70 6c 79 2e 66 | %d",myS|FReply.f|
|000046f0| 4e 61 6d 65 2c 65 72 72 | 43 6f 64 65 29 3b 0d 09 |Name,err|Code);..|
|00004700| 09 09 09 45 72 72 6f 72 | 41 6c 65 72 74 28 74 65 |...Error|Alert(te|
|00004710| 6d 70 53 74 72 69 6e 67 | 29 3b 0d 09 09 09 09 72 |mpString|);.....r|
|00004720| 65 74 75 72 6e 28 54 52 | 55 45 29 3b 0d 09 09 09 |eturn(TR|UE);....|
|00004730| 7d 0d 09 09 09 0d 09 09 | 09 69 66 20 28 28 65 72 |}.......|.if ((er|
|00004740| 72 43 6f 64 65 20 3d 20 | 47 65 74 45 4f 46 28 66 |rCode = |GetEOF(f|
|00004750| 52 65 66 4e 75 6d 2c 26 | 62 79 74 65 43 6f 75 6e |RefNum,&|byteCoun|
|00004760| 74 29 29 21 3d 6e 6f 45 | 72 72 29 0d 09 09 09 7b |t))!=noE|rr)....{|
|00004770| 0d 09 09 09 09 46 53 43 | 6c 6f 73 65 28 66 52 65 |.....FSC|lose(fRe|
|00004780| 66 4e 75 6d 29 3b 0d 09 | 09 09 09 50 74 6f 43 73 |fNum);..|...PtoCs|
|00004790| 74 72 28 28 63 68 61 72 | 20 2a 29 20 6d 79 53 46 |tr((char| *) mySF|
|000047a0| 52 65 70 6c 79 2e 66 4e | 61 6d 65 29 3b 0d 09 09 |Reply.fN|ame);...|
|000047b0| 09 09 73 70 72 69 6e 74 | 66 28 74 65 6d 70 53 74 |..sprint|f(tempSt|
|000047c0| 72 69 6e 67 2c 22 49 6e | 73 65 72 74 54 65 78 74 |ring,"In|sertText|
|000047d0| 46 69 6c 65 3a 20 47 65 | 74 45 4f 46 28 27 25 73 |File: Ge|tEOF('%s|
|000047e0| 27 2c 30 29 20 45 72 72 | 6f 72 20 25 64 22 2c 6d |',0) Err|or %d",m|
|000047f0| 79 53 46 52 65 70 6c 79 | 2e 66 4e 61 6d 65 2c 65 |ySFReply|.fName,e|
|00004800| 72 72 43 6f 64 65 29 3b | 0d 09 09 09 09 45 72 72 |rrCode);|.....Err|
|00004810| 6f 72 41 6c 65 72 74 28 | 74 65 6d 70 53 74 72 69 |orAlert(|tempStri|
|00004820| 6e 67 29 3b 0d 09 09 09 | 09 72 65 74 75 72 6e 28 |ng);....|.return(|
|00004830| 54 52 55 45 29 3b 0d 09 | 09 09 7d 0d 09 09 09 0d |TRUE);..|..}.....|
|00004840| 09 09 09 69 66 20 28 28 | 65 72 72 43 6f 64 65 20 |...if ((|errCode |
|00004850| 3d 20 53 65 74 46 50 6f | 73 28 66 52 65 66 4e 75 |= SetFPo|s(fRefNu|
|00004860| 6d 2c 66 73 46 72 6f 6d | 53 74 61 72 74 2c 30 4c |m,fsFrom|Start,0L|
|00004870| 29 29 21 3d 6e 6f 45 72 | 72 29 0d 09 09 09 7b 0d |))!=noEr|r)....{.|
|00004880| 09 09 09 09 46 53 43 6c | 6f 73 65 28 66 52 65 66 |....FSCl|ose(fRef|
|00004890| 4e 75 6d 29 3b 0d 09 09 | 09 09 50 74 6f 43 73 74 |Num);...|..PtoCst|
|000048a0| 72 28 28 63 68 61 72 20 | 2a 29 20 6d 79 53 46 52 |r((char |*) mySFR|
|000048b0| 65 70 6c 79 2e 66 4e 61 | 6d 65 29 3b 0d 09 09 09 |eply.fNa|me);....|
|000048c0| 09 73 70 72 69 6e 74 66 | 28 74 65 6d 70 53 74 72 |.sprintf|(tempStr|
|000048d0| 69 6e 67 2c 22 49 6e 73 | 65 72 74 54 65 78 74 46 |ing,"Ins|ertTextF|
|000048e0| 69 6c 65 3a 20 53 65 74 | 46 50 6f 73 28 27 25 73 |ile: Set|FPos('%s|
|000048f0| 27 2c 30 29 20 45 72 72 | 6f 72 20 25 64 22 2c 6d |',0) Err|or %d",m|
|00004900| 79 53 46 52 65 70 6c 79 | 2e 66 4e 61 6d 65 2c 65 |ySFReply|.fName,e|
|00004910| 72 72 43 6f 64 65 29 3b | 0d 09 09 09 09 45 72 72 |rrCode);|.....Err|
|00004920| 6f 72 41 6c 65 72 74 28 | 74 65 6d 70 53 74 72 69 |orAlert(|tempStri|
|00004930| 6e 67 29 3b 0d 09 09 09 | 09 72 65 74 75 72 6e 28 |ng);....|.return(|
|00004940| 54 52 55 45 29 3b 0d 09 | 09 09 7d 0d 09 09 09 0d |TRUE);..|..}.....|
|00004950| 09 09 09 74 68 65 54 65 | 78 74 20 3d 20 4e 65 77 |...theTe|xt = New|
|00004960| 50 74 72 28 62 79 74 65 | 43 6f 75 6e 74 29 3b 0d |Ptr(byte|Count);.|
|00004970| 09 09 09 0d 09 09 09 69 | 66 20 28 53 74 72 69 70 |.......i|f (Strip|
|00004980| 41 64 64 72 65 73 73 28 | 74 68 65 54 65 78 74 29 |Address(|theText)|
|00004990| 3d 3d 30 4c 20 7c 7c 20 | 4d 65 6d 45 72 72 6f 72 |==0L || |MemError|
|000049a0| 28 29 29 0d 09 09 09 7b | 0d 09 09 09 09 46 53 43 |())....{|.....FSC|
|000049b0| 6c 6f 73 65 28 66 52 65 | 66 4e 75 6d 29 3b 0d 09 |lose(fRe|fNum);..|
|000049c0| 09 09 09 73 70 72 69 6e | 74 66 28 74 65 6d 70 53 |...sprin|tf(tempS|
|000049d0| 74 72 69 6e 67 2c 22 49 | 6e 73 65 72 74 54 65 78 |tring,"I|nsertTex|
|000049e0| 74 46 69 6c 65 3a 20 4e | 65 77 50 74 72 28 25 6c |tFile: N|ewPtr(%l|
|000049f0| 64 29 20 45 72 72 6f 72 | 20 25 64 22 2c 62 79 74 |d) Error| %d",byt|
|00004a00| 65 43 6f 75 6e 74 2c 4d | 65 6d 45 72 72 6f 72 28 |eCount,M|emError(|
|00004a10| 29 29 3b 0d 09 09 09 09 | 45 72 72 6f 72 41 6c 65 |));.....|ErrorAle|
|00004a20| 72 74 28 74 65 6d 70 53 | 74 72 69 6e 67 29 3b 0d |rt(tempS|tring);.|
|00004a30| 09 09 09 09 72 65 74 75 | 72 6e 28 54 52 55 45 29 |....retu|rn(TRUE)|
|00004a40| 3b 0d 09 09 09 7d 0d 09 | 09 09 0d 09 09 09 69 66 |;....}..|......if|
|00004a50| 20 28 28 65 72 72 43 6f | 64 65 20 3d 20 46 53 52 | ((errCo|de = FSR|
|00004a60| 65 61 64 28 66 52 65 66 | 4e 75 6d 2c 26 62 79 74 |ead(fRef|Num,&byt|
|00004a70| 65 43 6f 75 6e 74 2c 74 | 68 65 54 65 78 74 29 29 |eCount,t|heText))|
|00004a80| 21 3d 6e 6f 45 72 72 29 | 0d 09 09 09 7b 0d 09 09 |!=noErr)|....{...|
|00004a90| 09 09 44 69 73 70 6f 73 | 50 74 72 28 74 68 65 54 |..Dispos|Ptr(theT|
|00004aa0| 65 78 74 29 3b 0d 09 09 | 09 09 46 53 43 6c 6f 73 |ext);...|..FSClos|
|00004ab0| 65 28 66 52 65 66 4e 75 | 6d 29 3b 0d 09 09 09 09 |e(fRefNu|m);.....|
|00004ac0| 50 74 6f 43 73 74 72 28 | 28 63 68 61 72 20 2a 29 |PtoCstr(|(char *)|
|00004ad0| 20 6d 79 53 46 52 65 70 | 6c 79 2e 66 4e 61 6d 65 | mySFRep|ly.fName|
|00004ae0| 29 3b 0d 09 09 09 09 73 | 70 72 69 6e 74 66 28 74 |);.....s|printf(t|
|00004af0| 65 6d 70 53 74 72 69 6e | 67 2c 22 49 6e 73 65 72 |empStrin|g,"Inser|
|00004b00| 74 54 65 78 74 46 69 6c | 65 3a 20 46 53 52 65 61 |tTextFil|e: FSRea|
|00004b10| 64 28 27 25 73 27 29 20 | 45 72 72 6f 72 20 25 64 |d('%s') |Error %d|
|00004b20| 22 2c 6d 79 53 46 52 65 | 70 6c 79 2e 66 4e 61 6d |",mySFRe|ply.fNam|
|00004b30| 65 2c 65 72 72 43 6f 64 | 65 29 3b 0d 09 09 09 09 |e,errCod|e);.....|
|00004b40| 45 72 72 6f 72 41 6c 65 | 72 74 28 74 65 6d 70 53 |ErrorAle|rt(tempS|
|00004b50| 74 72 69 6e 67 29 3b 0d | 09 09 09 09 72 65 74 75 |tring);.|....retu|
|00004b60| 72 6e 28 54 52 55 45 29 | 3b 0d 09 09 09 7d 0d 09 |rn(TRUE)|;....}..|
|00004b70| 09 09 0d 09 09 09 69 66 | 20 28 28 65 72 72 43 6f |......if| ((errCo|
|00004b80| 64 65 20 3d 20 46 53 43 | 6c 6f 73 65 28 66 52 65 |de = FSC|lose(fRe|
|00004b90| 66 4e 75 6d 29 29 21 3d | 6e 6f 45 72 72 29 0d 09 |fNum))!=|noErr)..|
|00004ba0| 09 09 7b 0d 09 09 09 09 | 44 69 73 70 6f 73 50 74 |..{.....|DisposPt|
|00004bb0| 72 28 74 68 65 54 65 78 | 74 29 3b 0d 09 09 09 09 |r(theTex|t);.....|
|00004bc0| 50 74 6f 43 73 74 72 28 | 28 63 68 61 72 20 2a 29 |PtoCstr(|(char *)|
|00004bd0| 20 6d 79 53 46 52 65 70 | 6c 79 2e 66 4e 61 6d 65 | mySFRep|ly.fName|
|00004be0| 29 3b 0d 09 09 09 09 73 | 70 72 69 6e 74 66 28 74 |);.....s|printf(t|
|00004bf0| 65 6d 70 53 74 72 69 6e | 67 2c 22 49 6e 73 65 72 |empStrin|g,"Inser|
|00004c00| 74 54 65 78 74 46 69 6c | 65 3a 20 46 53 43 6c 6f |tTextFil|e: FSClo|
|00004c10| 73 65 28 27 25 73 27 2c | 30 29 20 45 72 72 6f 72 |se('%s',|0) Error|
|00004c20| 20 25 64 22 2c 6d 79 53 | 46 52 65 70 6c 79 2e 66 | %d",myS|FReply.f|
|00004c30| 4e 61 6d 65 2c 65 72 72 | 43 6f 64 65 29 3b 0d 09 |Name,err|Code);..|
|00004c40| 09 09 09 45 72 72 6f 72 | 41 6c 65 72 74 28 74 65 |...Error|Alert(te|
|00004c50| 6d 70 53 74 72 69 6e 67 | 29 3b 0d 09 09 09 09 72 |mpString|);.....r|
|00004c60| 65 74 75 72 6e 28 54 52 | 55 45 29 3b 0d 09 09 09 |eturn(TR|UE);....|
|00004c70| 7d 0d 09 09 09 0d 09 09 | 09 53 65 74 43 75 72 73 |}.......|.SetCurs|
|00004c80| 6f 72 28 26 77 61 69 74 | 43 75 72 73 6f 72 29 3b |or(&wait|Cursor);|
|00004c90| 0d 09 09 09 0d 09 09 09 | 54 45 33 32 4b 49 6e 73 |........|TE32KIns|
|00004ca0| 65 72 74 28 74 68 65 54 | 65 78 74 2c 62 79 74 65 |ert(theT|ext,byte|
|00004cb0| 43 6f 75 6e 74 2c 74 68 | 65 54 45 48 29 3b 0d 09 |Count,th|eTEH);..|
|00004cc0| 09 09 0d 09 09 09 49 6e | 69 74 43 75 72 73 6f 72 |......In|itCursor|
|00004cd0| 28 29 3b 0d 09 09 09 0d | 09 09 09 44 69 73 70 6f |();.....|...Dispo|
|00004ce0| 73 50 74 72 28 74 68 65 | 54 65 78 74 29 3b 0d 09 |sPtr(the|Text);..|
|00004cf0| 09 7d 0d 09 09 0d 09 09 | 72 65 74 75 72 6e 28 54 |.}......|return(T|
|00004d00| 52 55 45 29 3b 0d 09 7d | 0d 09 0d 09 65 6c 73 65 |RUE);..}|....else|
|00004d10| 0d 09 09 72 65 74 75 72 | 6e 28 46 41 4c 53 45 29 |...retur|n(FALSE)|
|00004d20| 3b 0d 7d 0d 0d 0d 0d 0d | 44 6f 46 6f 6e 74 53 69 |;.}.....|DoFontSi|
|00004d30| 7a 65 28 74 68 65 46 6f | 6e 74 4e 61 6d 65 2c 74 |ze(theFo|ntName,t|
|00004d40| 68 65 46 6f 6e 74 53 69 | 7a 65 29 0d 63 68 61 72 |heFontSi|ze).char|
|00004d50| 20 2a 74 68 65 46 6f 6e | 74 4e 61 6d 65 3b 69 6e | *theFon|tName;in|
|00004d60| 74 09 74 68 65 46 6f 6e | 74 53 69 7a 65 3b 0d 7b |t.theFon|tSize;.{|
|00004d70| 0d 57 69 6e 64 6f 77 50 | 74 72 09 74 68 65 57 50 |.WindowP|tr.theWP|
|00004d80| 74 72 3b 0d 69 6e 74 09 | 09 09 74 68 65 46 6f 6e |tr;.int.|..theFon|
|00004d90| 74 4e 75 6d 3b 0d 52 65 | 63 74 09 09 74 65 6d 70 |tNum;.Re|ct..temp|
|00004da0| 52 65 63 74 3b 0d 47 72 | 61 66 50 74 72 09 09 6f |Rect;.Gr|afPtr..o|
|00004db0| 6c 64 50 6f 72 74 3b 0d | 09 0d 09 69 66 20 28 74 |ldPort;.|...if (t|
|00004dc0| 68 65 54 45 48 33 32 4b | 29 0d 09 7b 0d 09 09 69 |heTEH32K|)..{...i|
|00004dd0| 66 20 28 74 68 65 46 6f | 6e 74 4e 61 6d 65 5b 30 |f (theFo|ntName[0|
|00004de0| 5d 29 0d 09 09 7b 0d 09 | 09 09 43 74 6f 50 73 74 |])...{..|..CtoPst|
|00004df0| 72 28 74 68 65 46 6f 6e | 74 4e 61 6d 65 29 3b 0d |r(theFon|tName);.|
|00004e00| 09 09 09 47 65 74 46 4e | 75 6d 28 74 68 65 46 6f |...GetFN|um(theFo|
|00004e10| 6e 74 4e 61 6d 65 2c 26 | 74 68 65 46 6f 6e 74 4e |ntName,&|theFontN|
|00004e20| 75 6d 29 3b 0d 09 09 7d | 0d 09 09 65 6c 73 65 0d |um);...}|...else.|
|00004e30| 09 09 09 74 68 65 46 6f | 6e 74 4e 75 6d 20 3d 20 |...theFo|ntNum = |
|00004e40| 2d 31 3b 0d 09 09 0d 09 | 09 0d 09 09 69 66 20 28 |-1;.....|....if (|
|00004e50| 74 68 65 46 6f 6e 74 4e | 75 6d 20 3c 20 30 29 0d |theFontN|um < 0).|
|00004e60| 09 09 09 74 68 65 46 6f | 6e 74 4e 75 6d 20 3d 20 |...theFo|ntNum = |
|00004e70| 64 65 66 61 75 6c 74 46 | 6f 6e 74 3b 0d 09 09 0d |defaultF|ont;....|
|00004e80| 09 09 69 66 20 28 74 68 | 65 46 6f 6e 74 53 69 7a |..if (th|eFontSiz|
|00004e90| 65 20 3c 3d 20 30 29 0d | 09 09 09 74 68 65 46 6f |e <= 0).|...theFo|
|00004ea0| 6e 74 53 69 7a 65 20 3d | 20 64 65 66 61 75 6c 74 |ntSize =| default|
|00004eb0| 46 6f 6e 74 53 69 7a 65 | 3b 0d 09 09 09 0d 09 09 |FontSize|;.......|
|00004ec0| 64 65 66 61 75 6c 74 46 | 6f 6e 74 20 3d 20 74 68 |defaultF|ont = th|
|00004ed0| 65 46 6f 6e 74 4e 75 6d | 3b 0d 09 09 64 65 66 61 |eFontNum|;...defa|
|00004ee0| 75 6c 74 46 6f 6e 74 53 | 69 7a 65 20 3d 20 74 68 |ultFontS|ize = th|
|00004ef0| 65 46 6f 6e 74 53 69 7a | 65 3b 0d 09 09 0d 09 09 |eFontSiz|e;......|
|00004f00| 54 45 33 32 4b 53 65 74 | 46 6f 6e 74 53 74 75 66 |TE32KSet|FontStuf|
|00004f10| 66 28 74 68 65 46 6f 6e | 74 4e 75 6d 2c 30 2c 73 |f(theFon|tNum,0,s|
|00004f20| 72 63 43 6f 70 79 2c 74 | 68 65 46 6f 6e 74 53 69 |rcCopy,t|heFontSi|
|00004f30| 7a 65 2c 74 68 65 54 45 | 48 33 32 4b 29 3b 0d 09 |ze,theTE|H32K);..|
|00004f40| 09 0d 09 09 41 64 6a 75 | 73 74 46 6f 72 52 65 73 |....Adju|stForRes|
|00004f50| 69 7a 65 64 57 69 6e 64 | 6f 77 28 29 3b 0d 09 09 |izedWind|ow();...|
|00004f60| 0d 09 09 47 65 74 50 6f | 72 74 28 26 6f 6c 64 50 |...GetPo|rt(&oldP|
|00004f70| 6f 72 74 29 3b 0d 09 09 | 53 65 74 50 6f 72 74 28 |ort);...|SetPort(|
|00004f80| 28 2a 2a 74 68 65 54 45 | 48 33 32 4b 29 2e 69 6e |(**theTE|H32K).in|
|00004f90| 50 6f 72 74 29 3b 0d 09 | 09 74 65 6d 70 52 65 63 |Port);..|.tempRec|
|00004fa0| 74 20 3d 20 28 2a 28 2a | 2a 74 68 65 54 45 48 33 |t = (*(*|*theTEH3|
|00004fb0| 32 4b 29 2e 69 6e 50 6f | 72 74 29 2e 70 6f 72 74 |2K).inPo|rt).port|
|00004fc0| 52 65 63 74 3b 0d 09 09 | 49 6e 76 61 6c 52 65 63 |Rect;...|InvalRec|
|00004fd0| 74 28 26 74 65 6d 70 52 | 65 63 74 29 3b 0d 09 09 |t(&tempR|ect);...|
|00004fe0| 53 65 74 50 6f 72 74 28 | 6f 6c 64 50 6f 72 74 29 |SetPort(|oldPort)|
|00004ff0| 3b 0d 09 09 0d 09 09 4d | 61 69 6e 74 61 69 6e 46 |;......M|aintainF|
|00005000| 6f 6e 74 4d 65 6e 75 28 | 29 3b 0d 09 7d 0d 7d 0d |ontMenu(|);..}.}.|
|00005010| 0d 0d 0d 0d 0d 4d 61 69 | 6e 74 61 69 6e 46 6f 6e |.....Mai|ntainFon|
|00005020| 74 4d 65 6e 75 28 29 0d | 7b 0d 69 6e 74 09 09 69 |tMenu().|{.int..i|
|00005030| 2c 6e 75 6d 49 74 65 6d | 73 2c 74 65 6d 70 53 69 |,numItem|s,tempSi|
|00005040| 7a 65 3b 0d 63 68 61 72 | 09 74 68 65 46 6f 6e 74 |ze;.char|.theFont|
|00005050| 53 74 72 69 6e 67 5b 31 | 32 38 5d 3b 0d 63 68 61 |String[1|28];.cha|
|00005060| 72 09 74 65 6d 70 53 74 | 72 69 6e 67 5b 32 35 36 |r.tempSt|ring[256|
|00005070| 5d 3b 0d 0d 09 6e 75 6d | 49 74 65 6d 73 20 3d 20 |];...num|Items = |
|00005080| 43 6f 75 6e 74 4d 49 74 | 65 6d 73 28 6d 79 4d 65 |CountMIt|ems(myMe|
|00005090| 6e 75 73 5b 66 6f 6e 74 | 4d 65 6e 75 5d 29 3b 0d |nus[font|Menu]);.|
|000050a0| 09 0d 09 47 65 74 46 6f | 6e 74 4e 61 6d 65 28 64 |...GetFo|ntName(d|
|000050b0| 65 66 61 75 6c 74 46 6f | 6e 74 2c 74 68 65 46 6f |efaultFo|nt,theFo|
|000050c0| 6e 74 53 74 72 69 6e 67 | 29 3b 0d 09 50 74 6f 43 |ntString|);..PtoC|
|000050d0| 73 74 72 28 74 68 65 46 | 6f 6e 74 53 74 72 69 6e |str(theF|ontStrin|
|000050e0| 67 29 3b 0d 09 0d 09 66 | 6f 72 20 28 69 3d 31 3b |g);....f|or (i=1;|
|000050f0| 69 3c 3d 6e 75 6d 49 74 | 65 6d 73 2d 37 3b 69 2b |i<=numIt|ems-7;i+|
|00005100| 2b 29 0d 09 7b 0d 09 09 | 47 65 74 49 74 65 6d 28 |+)..{...|GetItem(|
|00005110| 6d 79 4d 65 6e 75 73 5b | 66 6f 6e 74 4d 65 6e 75 |myMenus[|fontMenu|
|00005120| 5d 2c 69 2c 26 74 65 6d | 70 53 74 72 69 6e 67 29 |],i,&tem|pString)|
|00005130| 3b 0d 09 09 50 74 6f 43 | 73 74 72 28 74 65 6d 70 |;...PtoC|str(temp|
|00005140| 53 74 72 69 6e 67 29 3b | 0d 09 09 0d 09 09 69 66 |String);|......if|
|00005150| 20 28 73 74 72 63 6d 70 | 28 74 65 6d 70 53 74 72 | (strcmp|(tempStr|
|00005160| 69 6e 67 2c 74 68 65 46 | 6f 6e 74 53 74 72 69 6e |ing,theF|ontStrin|
|00005170| 67 29 20 3d 3d 20 45 51 | 53 54 52 29 0d 09 09 7b |g) == EQ|STR)...{|
|00005180| 0d 09 09 09 43 68 65 63 | 6b 49 74 65 6d 28 6d 79 |....Chec|kItem(my|
|00005190| 4d 65 6e 75 73 5b 66 6f | 6e 74 4d 65 6e 75 5d 2c |Menus[fo|ntMenu],|
|000051a0| 69 2c 54 52 55 45 29 3b | 0d 09 09 09 53 65 74 49 |i,TRUE);|....SetI|
|000051b0| 74 65 6d 4d 61 72 6b 28 | 6d 79 4d 65 6e 75 73 5b |temMark(|myMenus[|
|000051c0| 66 6f 6e 74 4d 65 6e 75 | 5d 2c 69 2c 63 68 65 63 |fontMenu|],i,chec|
|000051d0| 6b 4d 61 72 6b 29 3b 0d | 09 09 7d 0d 09 09 65 6c |kMark);.|..}...el|
|000051e0| 73 65 0d 09 09 09 43 68 | 65 63 6b 49 74 65 6d 28 |se....Ch|eckItem(|
|000051f0| 6d 79 4d 65 6e 75 73 5b | 66 6f 6e 74 4d 65 6e 75 |myMenus[|fontMenu|
|00005200| 5d 2c 69 2c 46 41 4c 53 | 45 29 3b 0d 09 7d 0d 09 |],i,FALS|E);..}..|
|00005210| 0d 09 0d 09 73 70 72 69 | 6e 74 66 28 74 68 65 46 |....spri|ntf(theF|
|00005220| 6f 6e 74 53 74 72 69 6e | 67 2c 22 25 64 22 2c 64 |ontStrin|g,"%d",d|
|00005230| 65 66 61 75 6c 74 46 6f | 6e 74 53 69 7a 65 29 3b |efaultFo|ntSize);|
|00005240| 0d 09 0d 09 66 6f 72 20 | 28 69 3d 6e 75 6d 49 74 |....for |(i=numIt|
|00005250| 65 6d 73 2d 36 3b 69 3c | 3d 6e 75 6d 49 74 65 6d |ems-6;i<|=numItem|
|00005260| 73 3b 69 2b 2b 29 0d 09 | 7b 0d 09 09 47 65 74 49 |s;i++)..|{...GetI|
|00005270| 74 65 6d 28 6d 79 4d 65 | 6e 75 73 5b 66 6f 6e 74 |tem(myMe|nus[font|
|00005280| 4d 65 6e 75 5d 2c 69 2c | 26 74 65 6d 70 53 74 72 |Menu],i,|&tempStr|
|00005290| 69 6e 67 29 3b 0d 09 09 | 50 74 6f 43 73 74 72 28 |ing);...|PtoCstr(|
|000052a0| 74 65 6d 70 53 74 72 69 | 6e 67 29 3b 0d 09 09 0d |tempStri|ng);....|
|000052b0| 09 09 69 66 20 28 73 73 | 63 61 6e 66 28 74 65 6d |..if (ss|canf(tem|
|000052c0| 70 53 74 72 69 6e 67 2c | 22 25 64 22 2c 26 74 65 |pString,|"%d",&te|
|000052d0| 6d 70 53 69 7a 65 29 20 | 21 3d 20 31 29 0d 09 09 |mpSize) |!= 1)...|
|000052e0| 09 74 65 6d 70 53 69 7a | 65 20 3d 20 2d 31 3b 0d |.tempSiz|e = -1;.|
|000052f0| 09 09 0d 09 09 69 66 20 | 28 73 74 72 63 6d 70 28 |.....if |(strcmp(|
|00005300| 74 65 6d 70 53 74 72 69 | 6e 67 2c 74 68 65 46 6f |tempStri|ng,theFo|
|00005310| 6e 74 53 74 72 69 6e 67 | 29 20 3d 3d 20 45 51 53 |ntString|) == EQS|
|00005320| 54 52 29 0d 09 09 7b 0d | 09 09 09 43 68 65 63 6b |TR)...{.|...Check|
|00005330| 49 74 65 6d 28 6d 79 4d | 65 6e 75 73 5b 66 6f 6e |Item(myM|enus[fon|
|00005340| 74 4d 65 6e 75 5d 2c 69 | 2c 54 52 55 45 29 3b 0d |tMenu],i|,TRUE);.|
|00005350| 09 09 09 53 65 74 49 74 | 65 6d 4d 61 72 6b 28 6d |...SetIt|emMark(m|
|00005360| 79 4d 65 6e 75 73 5b 66 | 6f 6e 74 4d 65 6e 75 5d |yMenus[f|ontMenu]|
|00005370| 2c 69 2c 63 68 65 63 6b | 4d 61 72 6b 29 3b 0d 09 |,i,check|Mark);..|
|00005380| 09 7d 0d 09 09 65 6c 73 | 65 0d 09 09 09 43 68 65 |.}...els|e....Che|
|00005390| 63 6b 49 74 65 6d 28 6d | 79 4d 65 6e 75 73 5b 66 |ckItem(m|yMenus[f|
|000053a0| 6f 6e 74 4d 65 6e 75 5d | 2c 69 2c 46 41 4c 53 45 |ontMenu]|,i,FALSE|
|000053b0| 29 3b 0d 09 09 0d 09 09 | 69 66 20 28 52 65 61 6c |);......|if (Real|
|000053c0| 46 6f 6e 74 28 64 65 66 | 61 75 6c 74 46 6f 6e 74 |Font(def|aultFont|
|000053d0| 2c 74 65 6d 70 53 69 7a | 65 29 29 0d 09 09 09 53 |,tempSiz|e))....S|
|000053e0| 65 74 49 74 65 6d 53 74 | 79 6c 65 28 6d 79 4d 65 |etItemSt|yle(myMe|
|000053f0| 6e 75 73 5b 66 6f 6e 74 | 4d 65 6e 75 5d 2c 69 2c |nus[font|Menu],i,|
|00005400| 6f 75 74 6c 69 6e 65 29 | 3b 0d 09 09 65 6c 73 65 |outline)|;...else|
|00005410| 0d 09 09 09 53 65 74 49 | 74 65 6d 53 74 79 6c 65 |....SetI|temStyle|
|00005420| 28 6d 79 4d 65 6e 75 73 | 5b 66 6f 6e 74 4d 65 6e |(myMenus|[fontMen|
|00005430| 75 5d 2c 69 2c 30 29 3b | 0d 09 7d 0d 7d 00 00 00 |u],i,0);|..}.}...|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005480| 00 00 01 00 00 00 02 30 | 00 00 01 30 00 00 00 32 |.......0|...0...2|
|00005490| 28 73 73 63 61 6e 66 28 | 74 65 6d 70 53 74 72 69 |(sscanf(|tempStri|
|000054a0| 6e 67 2c 22 25 64 22 2c | 26 74 65 6d 70 53 69 7a |ng,"%d",|&tempSiz|
|000054b0| 06 6d 61 69 6e 2e 63 b4 | 02 00 00 00 50 61 72 74 |.main.c.|....Part|
|000054c0| 53 49 54 78 00 00 00 00 | 00 00 00 00 00 01 68 ce |SITx....|......h.|
|000054d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000054e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054f0| 00 00 a9 80 1e 19 00 00 | 00 00 00 00 02 62 0d 09 |........|.....b..|
|00005500| 09 7b 0d 09 09 09 43 68 | 65 63 6b 49 74 65 6d 28 |.{....Ch|eckItem(|
|00005510| 6d 79 4d 65 6e 75 73 5b | 66 6f 6e 74 4d 65 6e 75 |myMenus[|fontMenu|
|00005520| 5d 2c 69 2c 54 52 55 45 | 29 3b 0d 09 09 09 53 65 |],i,TRUE|);....Se|
|00005530| 74 49 74 65 6d 4d 61 72 | 6b 28 6d 79 4d 65 6e 75 |tItemMar|k(myMenu|
|00005540| 73 5b 66 6f 6e 74 4d 65 | 6e 75 5d 2c 69 2c 63 68 |s[fontMe|nu],i,ch|
|00005550| 65 63 6b 4d 61 72 6b 29 | 3b 0d 09 09 7d 0d 09 09 |eckMark)|;...}...|
|00005560| 65 6c 73 65 0d 09 09 09 | 43 68 65 63 6b 49 74 65 |else....|CheckIte|
|00005570| 6d 28 6d 79 4d 65 6e 75 | 73 5b 66 6f 6e 74 4d 65 |m(myMenu|s[fontMe|
|00005580| 00 00 01 2c 00 0e 00 00 | 41 3c 00 00 41 48 0d 43 |...,....|A<..AH.C|
|00005590| 65 6e 74 65 72 57 69 6e | 64 6f 77 00 00 00 1a 8e |enterWin|dow.....|
|000055a0| 00 00 1a 97 09 44 6f 43 | 6f 6d 6d 61 6e 64 00 00 |.....DoC|ommand..|
|000055b0| 4c a8 00 00 4c b2 0b 44 | 6f 46 6f 6e 74 53 69 7a |L...L..D|oFontSiz|
|000055c0| 65 00 00 00 0a 1f 00 00 | 0a 29 0b 45 72 72 6f 72 |e.......|.).Error|
|000055d0| 41 6c 65 72 74 00 00 00 | 08 e7 00 00 08 fa 13 48 |Alert...|.......H|
|000055e0| 69 6c 69 74 65 44 65 66 | 61 75 6c 74 42 75 74 74 |iliteDef|aultButt|
|000055f0| 6f 6e 00 00 43 aa 00 00 | 43 b8 0f 49 6e 73 65 72 |on..C...|C..Inser|
|00005600| 74 54 65 78 74 46 69 6c | 65 00 00 00 4f 95 00 00 |tTextFil|e...O...|
|00005610| 4f a5 11 4d 61 69 6e 74 | 61 69 6e 46 6f 6e 74 4d |O..Maint|ainFontM|
|00005620| 65 6e 75 00 00 00 11 6b | 00 00 11 78 0d 4d 61 69 |enu....k|...x.Mai|
|00005630| 6e 74 61 69 6e 4d 65 6e | 75 73 00 00 03 fa 00 00 |ntainMen|us......|
|00005640| 03 fe 05 6d 61 69 6e 00 | 00 00 28 c5 00 00 28 d1 |...main.|..(...(.|
|00005650| 0d 4f 70 65 6e 54 65 78 | 74 46 69 6c 65 00 00 00 |.OpenTex|tFile...|
|00005660| 03 d5 00 00 03 e0 0b 52 | 65 73 74 61 72 74 50 72 |.......R|estartPr|
|00005670| 6f 63 00 00 32 a8 00 00 | 32 b4 0d 53 61 76 65 54 |oc..2...|2..SaveT|
|00005680| 65 78 74 46 69 6c 65 00 | 00 00 0f 4f 00 00 0f 59 |extFile.|...O...Y|
|00005690| 0b 53 65 74 55 70 4d 65 | 6e 75 73 00 00 00 3d 61 |.SetUpMe|nus...=a|
|000056a0| 00 00 3d 6c 0b 59 65 73 | 4e 6f 43 61 6e 63 65 6c |..=l.Yes|NoCancel|
|000056b0| 00 00 01 00 00 00 02 30 | 00 00 01 30 00 00 00 32 |.......0|...0...2|
|000056c0| 00 28 91 8e 02 f2 00 00 | 00 1c 00 32 00 00 4d 50 |.(......|...2..MP|
|000056d0| 53 52 00 00 00 0a 03 ef | ff ff 00 00 00 00 00 00 |SR......|........|
|000056e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
